Hoi,
Ik wil op www.netster.nl/addfile.asp een record aan m'n database toevoegen, maar gaat niet helemaal goed. Hieronder het uitvoerende script:
<%
FUNCTION fixQuotes( theString )
fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION
' Get the Form Variables
addFile = TRIM( Request( "addFile" ) )
fileCategory = TRIM( Request( "fileCategory" ) )
fileName = TRIM( Request( "fileName" ) )
fileSize = TRIM( Request( "fileSize" ) )
fileLength = TRIM( Request( "fileLength" ) )
fileRoot = TRIM( Request( "fileRoot" ) )
fileBriefdesc = TRIM( Request( "fileBriefdesc" ) )
' Assign Default Values
IF fileCategory = "" THEN
fileCategory = "?????"
END IF
IF fileName = "" THEN
fileName = "?????"
END IF
IF fileSize = "" THEN
fileSize = "?????"
END IF
IF fileLength = "" THEN
fileLength = "?????"
END IF
IF fileRoot = "" THEN
fileRoot = "?????"
END IF
' Open the Database Connection
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "_db001"
%>
<%
' Add New File
IF addFile <> "" THEN
sqlString = "INSERT INTO Files " &_
"( file_category, file_name, file_size, " &_
"file_length, file_root, file_briefdesc ) VALUES ( " &_
" '" & fileCategory & "', " &_
" '" & fileName & "', " &_
" '" & fileSize & "', " &_
" '" & fileLength & "', " &_
" '" & fileRoot & "', " &_
" '" & fileBriefdesc & "', " &_
Con.Execute sqlString
%>
maar zo als je zult ervaren krijg je een error in regel: Con.Execute sqlString
Ik kan er niet uitkomen wat er fout gaat,is er iemand anders hier die weet wat ik fout doe?
TIA
Denon
Ik wil op www.netster.nl/addfile.asp een record aan m'n database toevoegen, maar gaat niet helemaal goed. Hieronder het uitvoerende script:
<%
FUNCTION fixQuotes( theString )
fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION
' Get the Form Variables
addFile = TRIM( Request( "addFile" ) )
fileCategory = TRIM( Request( "fileCategory" ) )
fileName = TRIM( Request( "fileName" ) )
fileSize = TRIM( Request( "fileSize" ) )
fileLength = TRIM( Request( "fileLength" ) )
fileRoot = TRIM( Request( "fileRoot" ) )
fileBriefdesc = TRIM( Request( "fileBriefdesc" ) )
' Assign Default Values
IF fileCategory = "" THEN
fileCategory = "?????"
END IF
IF fileName = "" THEN
fileName = "?????"
END IF
IF fileSize = "" THEN
fileSize = "?????"
END IF
IF fileLength = "" THEN
fileLength = "?????"
END IF
IF fileRoot = "" THEN
fileRoot = "?????"
END IF
' Open the Database Connection
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "_db001"
%>
<%
' Add New File
IF addFile <> "" THEN
sqlString = "INSERT INTO Files " &_
"( file_category, file_name, file_size, " &_
"file_length, file_root, file_briefdesc ) VALUES ( " &_
" '" & fileCategory & "', " &_
" '" & fileName & "', " &_
" '" & fileSize & "', " &_
" '" & fileLength & "', " &_
" '" & fileRoot & "', " &_
" '" & fileBriefdesc & "', " &_
Con.Execute sqlString
%>
maar zo als je zult ervaren krijg je een error in regel: Con.Execute sqlString
Ik kan er niet uitkomen wat er fout gaat,is er iemand anders hier die weet wat ik fout doe?
TIA
Denon