Prova così:
codice:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento senza titolo</title>
<style type="text/css">
<!--
.Stile1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
}
-->
</style>
</head>
<body>
<%
if request("id")=1 then
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")
Set cn = Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("db2.mdb")
cn.Open openStr
strSql= strQuery & strValori
rs.open strSql,cn
set rs=nothing
if err.number<>0 then
response.write err.number &"
"&err.description
else
response.write "inserimento avvenuto con successo"
end if
response.end
end if
%>
<form method="post" action="Invio.asp?id=1">
<span class="Stile1">Nome:
<input type="text" name="Nome" size="20">
Cognome:
<input type="text" name="Cognome" size="20">
Nick:
<input type="text" name="Nick" size="20">
</span>
<input type="submit" name="Submit" value="Invia">
</form>
</body>
</html>
Rispondi quotando
