Ho avuto un problema con il codice sottostante. In pratica volevo fare che a seconda della selezione (Il campo select normalissimo in html) cambiasse il numero dell' rs per aggiungere qualche dato al database. Ma ho notato che non funziona...
<%
Testo = request.form("text")
Select = request.form("selezione")
strCode="innovatel"
if trim(Testo) <> "" then
' Mappaggio del database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("*************")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM **********"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.addnew
rs("Select") = Testo
rs.update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
end if
%>
<html>
Rispondi quotando
