Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      FUNZIONALITA' BASE
         Nuovo database.

Nuovo database.

Autore Messaggio
maxcolo

Avanzato
Avanzato
133 Discussioni


Profilo - maxcolo 		23 maggio 2003 alle 10:18:01 Profilo - maxcoloInvia un messaggio privato Rispondi quotando
Ho creato una pagina che deve memorizzare tre campi nel database creato e inserito in mdb-database il codice è:

<!-- #include file='includes/includes-inc.asp' -->

<head>
<style fprolloverstyle>A:hover {color: red; font-weight: bold}
</style>
<%
sTitlePage = "Petizione"
%>
<!-- #include file='includes/toppage-inc.asp' -->
<%
CreateTopTable "MyTableID", "Petizione per far aprire lo svincolo a Guidonia"
%>
</head>

Stiamo per aprire una petizione per far aprire lo svincolo della bretella a
Guidonia. Tra poco sarà possibile dichiarare la propria adesione a questa
richiesta che verrà inoltrata alle autorità competenti, per far capire cosa
serve veramente alla gente oltre alle chiacchiere. <%
if request("id")=1 then
on error resume next
dim strQuery
strQuery="INSERT INTO tabella("
dim strValori
strValori=" VALUES("
dim strSql
strSql=""

for each item in request.form
if item<>"Submit" then
strQuery= strQuery & item &","
strValori= strValori & "'"&server.HTMLEncode(request.form(item))&"',"
end if
next

strQuery=mid(strQuery,1,len(strQuery)-1) &")"
strValori=mid(strValori,1,len(strValori)-1) &")"

set rs =server.createObject("ADODB.Recordset")
strConn="driver={Microsoft Access Driver (petizione.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("http://www.discutendo.it/mdb-database/petizione.mdb")
strSql= strQuery & strValori
rs.open strSql,strConn
set rs=nothing
if err.number<>0 then
response.write err.number &"<br>"&err.description
else
response.write "inserimento avvenuto con <b>successo</b>"
end if

response.end
end if
%>
<form method="post" action="script.asp?id=1">
<input type="text" name="campo1"><br>
<input type="text" name="campo2"><br>
<input type="text" name="campo3"><br>
<input type="submit" name="Submit" value="Invia">
</form>


<%

CreateBottomTable "<span class=""small"">MyFooterText</span>"
%><!-- #include file='includes/bottompage-inc.asp' --><!-- #include file='includes/clearitall-inc.asp' -->

Perchè mi da errore(404) quando do l'invio dei dati, cosa manca?
Grazie se qualcuno mi dedica del tempo per aiutarmi
Anna

Responsabile Forum

Esperto
Esperto
1146 Discussioni


Profilo - Anna 		23 maggio 2003 alle 13:27:45 Profilo - AnnaInvia un messaggio privato Rispondi quotando
Modificato il 23 maggio 2003 alle 13:29:41
ciao ti incollo un articolo che metterò presto nei tutorial:

Per poter aggiungere un database all’interno di AspNuke bisognerà innanzitutto crearlo ed inserirlo nella cartella dei database sul vostro server. Fatto questo bisognerà aggiungere la riga di codice seguente all’interno del vostro file di configurazione “configuration-inc.asp”, individuate le righe qui sotto ed aggiungete l’ultima come ho fatto io:
' Database constants
Const DB_MAIN = "main"
Const DB_FORUM = "forum"
Const DB_MIO = " nomemiodb "

Ovviamente per il corretto funzionamento il nome del vostro database dovrà essere ad esempio “nomemiodb.mdb”. Salvate le modifiche fatte al file di configurazione e pubblicatelo sul server.
A questo punto il vostro sito sarà predisposto ad ospitare il nuovo database, vediamo come creare una nuova pagina utilizzando la connessione di default di AspNuke contenuta all’interno del file “database-inc.asp” che ora richiameremo nella nostra nuova pagina.
<%
Dim oCn, oRs, rSQL, iLine
Set oCn = DBConnexion(DB_MIO)
rSQL = "SELECT * FROM miatabella"
Set oRs = DBRecordSet(oCn, rSQL)

If Not oRs.EOF Then
CreateTopTable "Nometabella" , "NomeTabella”
Response.Write <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td >" & Server.HTMLEncode (oRs("nomecampo")) & “</td>" & vbCRLF
Response.Write </tr>" & vbCRLF
CreateBottomTable "Chiusura Tabella"
End If

oCn.close
Set oCn=nothing
Set oRs=nothing
%>


Rifatti un pò all'esempio sopra utilizzando le connessioni ai db di aspnuke affinchè tutto funzioni!
[lo]
---------------
L’opera umana più bella è di essere utile al prossimo, senza che gli altri abbiano delle pretese (Sofocle)
maxcolo

Avanzato
Avanzato
133 Discussioni


Profilo - maxcolo 		23 maggio 2003 alle 13:40:04 Profilo - maxcoloInvia un messaggio privato Rispondi quotando
Quale onore, grazie Anna ci provo ma poi non mi abbandonare vado avanti e poi ti dico.
Infinatamente grazie
Anna

Responsabile Forum

Esperto
Esperto
1146 Discussioni


Profilo - Anna 		23 maggio 2003 alle 13:57:35 Profilo - AnnaInvia un messaggio privato Rispondi quotando
non preoccuparti non scappo (infatti sono sempre in chat) solo ke ho poco tempo :(
[lo]
---------------
L’opera umana più bella è di essere utile al prossimo, senza che gli altri abbiano delle pretese (Sofocle)

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 134
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5685251 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi