Ik ben bezig met een MySQL database updaten met IIS codes voor domeinen.
Het gaat alleen nu fout bij het update v/d databse...
Google en deze site gaven me geen antwoord, er is niet zoveel over ASP te vinden...
<%
strConnectie = "Driver={MySQL ODBC 3.51 Driver};Server=nitroserve.nl;" & _
"Database=****;" & _
"Uid=****;" & _
"Pwd=****;"
set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strConnectie
strSQL = "SELECT domein FROM domeinen WHERE bwmeterid = '0';"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn, 3, 3
If Not objRS.EOF Then arrayRS = objRS.GetRows()
objRS.Close
set objRS = nothing
If IsArray(arrayRS) Then
For intI = 0 To UBound(arrayRS, 2)
'begin
SET MyIIS = GetObject("IIS://LocalHost/W3SVC")
FOR EACH Website IN MyIIS
IF WebSite.Class = "IIsWebServer" THEN
IF WebSite.ServerComment = arrayRS(0, intI) THEN sSQL = "UPDATE domeinen SET bwmeterid = '" & (WebSite.Name) & "' WHERE domein = '" & arrayRS(0, intI) & "'<br>"
Response.Write(sSQL)
objConn.Execute sSQL
objConn.Close
set objConn = Nothing
sSQL = ""
END IF
NEXT
SET MyIIS = Nothing
'eind
Next
End If
%>
Dit geeft de volgende melding: Command text was not set for the command object.
/test.asp, line 31
regel 31 is dikgedrukt.
Als ik de query echo op het scherm dan ziet hij er goed uit
Het gaat alleen nu fout bij het update v/d databse...
Google en deze site gaven me geen antwoord, er is niet zoveel over ASP te vinden...
<%
strConnectie = "Driver={MySQL ODBC 3.51 Driver};Server=nitroserve.nl;" & _
"Database=****;" & _
"Uid=****;" & _
"Pwd=****;"
set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strConnectie
strSQL = "SELECT domein FROM domeinen WHERE bwmeterid = '0';"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL, objConn, 3, 3
If Not objRS.EOF Then arrayRS = objRS.GetRows()
objRS.Close
set objRS = nothing
If IsArray(arrayRS) Then
For intI = 0 To UBound(arrayRS, 2)
'begin
SET MyIIS = GetObject("IIS://LocalHost/W3SVC")
FOR EACH Website IN MyIIS
IF WebSite.Class = "IIsWebServer" THEN
IF WebSite.ServerComment = arrayRS(0, intI) THEN sSQL = "UPDATE domeinen SET bwmeterid = '" & (WebSite.Name) & "' WHERE domein = '" & arrayRS(0, intI) & "'<br>"
Response.Write(sSQL)
objConn.Execute sSQL
objConn.Close
set objConn = Nothing
sSQL = ""
END IF
NEXT
SET MyIIS = Nothing
'eind
Next
End If
%>
Dit geeft de volgende melding: Command text was not set for the command object.
/test.asp, line 31
regel 31 is dikgedrukt.
Als ik de query echo op het scherm dan ziet hij er goed uit