|
|||||||||
|
|||||||||
|
|||||||||
 |
|||||||||
| |
||
|
|
|
| |||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
ASP Free Forums Sponsor:
|
|
|
|
#1
May 20th, 2004, 10:29 AM
|
|||
|
|||
"Type Mismatch" error
Server chokes on line 31 (bold and italics).
<% Dim objConn, connString, rs1 Dim i Dim strID, arrID Dim intID connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\domains\cgibdcores.com\db\RectalApp.mdb; Mode=ReadWrite;Persist Security Info=False" intID = Request.Form("EmpsID") '15 dDay = Request.Form("fD") dDay = Replace(dDay, " ", "") strID = Request.Form("Avail") strID = Replace(strID, " ", "") arrC = Split(dDay, ",") arrID = Split(strID, ",") Set objConn = Server.CreateObject("ADODB.Connection") Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = connString rs1.Source = "SELECT * FROM TBL_Avail" '& ", " & objConn & ", " & adOpenKeySet & ", " & adLockOptimistic & ", " & adCmdTable rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 3 rs1.Open() For i = 0 to Ubound(arrC) rs1.AddNew rs1("Avail") = arrID(i) rs1("EmpsID") = intID rs1("fldDate") = arrC(i) rs1.Update() Next rs1.Close() Set rs1 = Nothing Set objConn = Nothing %>
|
|
| Viewing: ASP Free Forums > Programming > Code Bank > "Type Mismatch" error |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
 |
|
|
|
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
