Wat loopt er fout

[stineco]

Hoi,

Php ken ik reeds echter asp is helemaal nieuw voormij,

kan iemand iets zeggen of er iets fout is aan het script?

De gegevens uit de databank kan ik met een anders bestand zonder problemen uitlezen,
enkel het inserten lukt niet.

de code

<%

Dim strCon
Dim objCon
Dim verdieping, computer, fcomputer, telefoon, telefoon


' Zet de ingevulde waarden van het formulier in een lokale variabele.
verdieping = request.form("verdieping")
computer = request.form("computer")
fcomputer = request.form("fcomputer")
telefoon = request.form("telefoon")
telefoon = request.form("ftelefoon")

' Zet de connectiestring in de variabele. Hier is dit dus een ODBC connectie.
accessDB = server.mappath("/voorbeeld/voorbeeld.mdb")
strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strCon = strCon & accessDB & ";"

' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon)
' Open de verbinding met de database. Voor objCon wordt er een 
' verbinding geopend met opgegeven database.
Set objCon = Server.CreateObject ( "ADODB.Connection" )
objCon.Open strCon

' De SQL query die de gegevens in de database zet. De SQL hieronder is opgedeeld ' in stukjes om het duidelijker te maken. Alles kan gewoon achterelkaar.
SQLAdd = "INSERT INTO schoonmaak (verdieping, computer, fcomputer, telefoon, ftelefoon) " 
SQLAdd = SQLAdd & "VALUES "
SQLAdd = SQLAdd & "('" & verdieping & "','" & computer & "','" & fcomputer & "',"
SQLAdd = SQLAdd & "'" & telefoon & "','" & ftelefoon  & "')"

' Maak een object objAdd aan. Open dit record met bepaalde waarden
set objAdd = objCon.execute(SQLAdd)

' Sluit de recordset en de verbinding af omdat we die niet meer gebruiken.
Set objAdd = Nothing
objCon.close
set objCon = Nothing 

%>

of heb je zelf een beter altenatief?

 

[WinteE]

Probeer het volgende eens, de query hoeft alleen maar ge-execute te worden. Blokhaken om de veldnamen vvor de zekerheid, dan zit je wat dat betreft altijd goed.

SQLAdd = "INSERT INTO schoonmaak ([verdieping], [computer], [fcomputer], [telefoon], [ftelefoon]) " 
SQLAdd = SQLAdd & "VALUES "
SQLAdd = SQLAdd & "('" & verdieping & "','" & computer & "','" & fcomputer & "',"
SQLAdd = SQLAdd & "'" & telefoon & "','" & ftelefoon  & "')"

objCon.execute(SQLAdd)

Succes

Erik

 

[stineco]

het script werk wel alleen niet thuis

Hoi,
Wanneer ik het script op mijn werk gebruik met IIS 6 dan werkt dit wel
probeer ik dit echter thuis dan lukt het niet , ik maak gebruik van IIS 7.5 (windows 7)

Mvg
Stineco

 

[WinteE]

Heb je de .execute al zonder Set geprobeerd ?