gestire un database??

[Luis_Cypher]

buongiorno a tutti ...giorno nuovo problemino nuovo :-)

vorresi saper es eesiste uno script gia' bello e fatto che mi permetta
di:

inserire dati in un DB (es. testo....ed.... immagini)
ed in seguito mi permett di farli visualizzare in una pagina

grazie a tutti :-)

[yro]

http://asp.html.it/script/lista/25/database/

[Luis_Cypher]

ho recuperato questo codice

<%
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 &amp; item &amp;","
strValori= strValori &amp; "'"&amp;server.HTMLEncode(request.form(item))&amp; "',"
end if
next

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

set rs =server.createObject("ADODB.Recordset")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn &amp; " DBQ=" &amp; Server.MapPath("database.mdb")
strSql= strQuery &amp; strValori
rs.open strSql,strConn
set rs=nothing
if err.number<>0 then
response.write err.number &amp;"
"&amp;err.description
else
response.write "inserimento avvenuto con successo"
end if

response.end
end if
%>
<form method="post" action="script.asp?id=1">
<input type="text" name="campo1">

<input type="text" name="campo2">

<input type="text" name="campo3">

<input type="submit" name="Submit" value="Invia">
</form>

creato un DB con tabella
con dentro :

nome tabella = tabella

Id
campo1
campo2
campo3
e salvato con il nome = database.mdb

nonostante cio' ricevco questo msg

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/provino/ins.asp, line 13

strQuery= strQuery &amp; item &amp;","
-----------------------^

strQuery= strQuery &amp; item &amp;","

CHE FARE?

[Luis_Cypher]

ho provato pure questo con relativo database

<%
if(request("id")="1") then
'Dichiarazione variabili
dim qtRecord
qtRecord = 4 'campi da memorizzare
dim ctInd
ctInd = 0 ' contatore
'Apertura database - recordset
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("test.mdb")
Conn.Open (strConn)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "tabella", conn,3,3

'Memorizzazione dati
rs.addnew
for ctInd= 0 to (qtRecord - 1)
rs(ctInd)=request.form("campo"&ctInd+1)
next
rs.update
'Chiusura database - recordset
rs.close
set rs=nothing
conn.close
set conn=nothing
'Avviso a video
response.write "Memorizzazione riuscita"
end if
%>
<FORM METHOD=POST ACTION="index.asp?id=1">
<INPUT TYPE="text" NAME="campo1">

<INPUT TYPE="text" NAME="campo2">

<INPUT TYPE="text" NAME="campo3">

<INPUT TYPE="text" NAME="campo4">

<INPUT TYPE="submit" value="memorizza">
</FORM>

ma cerca la pagina "index.asp?id=1"