Ett tips på hur man kan göra istället för o Iffa...
For Each f In RecSet.Fields
If Request.Form(f.Name).Count Then
f.Value = Request.Form(f.Name)
End If
Next 'f
Frågan#1
Hej!
Jag vill med den ena querystringen köra en databaskoppling till de "undre".
URL:
fil.asp?do=post&typ=XXX
Ungefär nåt sånt här tänker jag mig (som exempel - fungerar ju förstås inte :p )
If Request.QueryString("do") = "post" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open "Select * From DB", Connect, 3, 3
RecSet.AddNew
And If Request.QueryString("typ") = "test1" Then
RecSet("test1") = Request.Form("test1")
RecSet.Update
RecSet.Close
And If Request.QueryString("typ") = "test2" Then
RecSet("test2") = Request.Form("test2")
RecSet.Update
RecSet.Close
End If
Ja, ni förstår nog hur jag tänker mig.. allt för att spara kod. Går detta eller finns det några smartare sätt?