% dim msg msg = "" dim Con,rst,sqluser,outputstr,p1,p2,sqlupdate Set Con = Server.CreateObject("ADODB.Connection") Con.Open "DSN=doctordsn" ' response.write "connected" set rst = server.createobject("adodb.recordset") p1 = request.QueryString("id1") %> <% p2 = request.QueryString("tit1") 'response.write (p1 & "and " & p2 ) sqluser = "select * from datatable where id="& p1 &" and title="& "'" & p2 &"'" &";" 'response.write sqluser rst.open sqluser,Con con.execute(Sqluser) %>
|
|||||||||||||||||||||||||||