Hi All,
I have a code that is run by Acces db and want to change to SQL server 2000. But it is not work, pls help to point out errors: <% If NOT InStr(f1.Name, "tn-") > 0 Then
Set SyncConn = Server.CreateObject("ADODB.Connection") Set cRS = Server.CreateObject("ADODB.Recordset") SyncConn.Open strConnect Set cRS.ActiveConnection = SyncConn cRS.CursorType = 3
cSQL = "SELECT ID, imagename, folder, title, description, dateadded, lasttime, lastdate, total FROM Descriptions WHERE imagename='"&strimage1&"' AND folder='"&Replace(strfolder1,"'","''")&"'" cRS.Open cSQL,,,&H0002 'Response.Write(cSQL) If cRS.recordcount = 0 Then cRS.AddNew cRS("imagename") = strimage1 cRS("folder") = strfolder1 cRS("dateadded") = strdate1 End If cRS.Update cRS.Close SyncConn.Close
End If
Next %>
Thanks,
Edited by Angel464 - 01 March 2012 at 9:10am
|