Simpel oprettelses-fejl
HejJeg får en fejl, når jeg forsøger at oprette følgende - se:
http://www.selvet.dk/fejl/
Fejlen opstår i "SearchRS("host_id") = strHOST_ID". Hvem kan rette fejlen?
Jeg kommer gerne med mere kode (end nedenstående), hvis det er nødvendigt.
_________________________________________________
<!--#include virtual="/dbsite/inc_update.inc"-->
<!--#include virtual="/aktiviteter/login_aktiviteter.inc"-->
<%
Response.Expires = 0
Response.Buffer = True
%><!--#include virtual="/db/adovbs.inc"--><%
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
strHOST_ID = TRIM(Request.Form("host_id"))
strSTED = TRIM(Request.Form("sted"))
strADRESSE = TRIM(Request.Form("adresse"))
strPOSTNR = TRIM(Request.Form("postnr"))
strBY = TRIM(Request.Form("by"))
strTestOK = "OK"
intTest = CINT(intTest)
IF strTestOK="OK" THEN
intTEST = Int(Len(strSTED))
If intTEST < 1 Then strTestOK = "Fejl i feltet: STED"
END IF
IF strTestOK="OK" THEN
intTEST = Int(Len(strSTED))
If intTEST > 60 Then strTestOK = "Fejl i feltet: STED"
END IF
IF strTestOK="OK" THEN
intTEST = Int(Len(strADRESSE))
If intTEST < 1 Then strTestOK = "Fejl i feltet: ADRESSE"
END IF
IF strTestOK="OK" THEN
intTEST = Int(Len(strADRESSE))
If intTEST > 60 Then strTestOK = "Fejl i feltet: ADRESSE"
END IF
IF strTestOK="OK" THEN
intTEST = Int(Len(strPOSTNR))
If intTEST < 4 Then strTestOK = "Fejl i feltet: POSTNR"
END IF
IF strTestOK="OK" THEN
intTEST = Int(Len(strPOSTNR))
If intTEST > 4 Then strTestOK = "Fejl i feltet: POSTNR"
END IF
IF strTestOK="OK" THEN
intTEST = Int(Len(strBY))
If intTEST < 1 Then strTestOK = "Fejl i feltet: BY"
END IF
IF strTestOK="OK" THEN
intTEST = Int(Len(strBY))
If intTEST > 40 Then strTestOK = "Fejl i feltet: BY"
END IF
strFejl ="Apostrof må ikke anvendes!"
IF strTestOK="OK" THEN
strTMP ="OK"
strTEST = strHOST_ID
For intTEST = 1 to LEN(strTest)
If Mid(strTEST, intTEST, 1) = "'" Then strTMP = strFejl
Next
IF strTMP <> "OK" THEN
strTestOK = strTMP
END IF
END IF
IF strTestOK="OK" THEN
strTMP ="OK"
strTEST = strSTED
For intTEST = 1 to LEN(strTest)
If Mid(strTEST, intTEST, 1) = "'" Then strTMP = strFejl
Next
IF strTMP <> "OK" THEN
strTestOK = strTMP
END IF
END IF
IF strTestOK="OK" THEN
strTMP ="OK"
strTEST = strADRESSE
For intTEST = 1 to LEN(strTest)
If Mid(strTEST, intTEST, 1) = "'" Then strTMP = strFejl
Next
IF strTMP <> "OK" THEN
strTestOK = strTMP
END IF
END IF
IF strTestOK="OK" THEN
strTMP ="OK"
strTEST = strPOSTNR
For intTEST = 1 to LEN(strTest)
If Mid(strTEST, intTEST, 1) = "'" Then strTMP = strFejl
Next
IF strTMP <> "OK" THEN
strTestOK = strTMP
END IF
END IF
IF strTestOK="OK" THEN
strTMP ="OK"
strTEST = strBY
For intTEST = 1 to LEN(strTest)
If Mid(strTEST, intTEST, 1) = "'" Then strTMP = strFejl
Next
IF strTMP <> "OK" THEN
strTestOK = strTMP
END IF
END IF
IF strTestOK="OK" THEN
strTMP ="OK"
strTEST = strHOST_ID
For intTEST = 1 to LEN(strTest)
If Mid(strTEST, intTEST, 1) = CHR(34) Then strTMP = strFejl
Next
IF strTMP <> "OK" THEN
strTestOK = strTMP
END IF
END IF
IF strTestOK="OK" THEN
strTMP ="OK"
strTEST = strSTED
For intTEST = 1 to LEN(strTest)
If Mid(strTEST, intTEST, 1) = CHR(34) Then strTMP = strFejl
Next
IF strTMP <> "OK" THEN
strTestOK = strTMP
END IF
END IF
IF strTestOK="OK" THEN
strTMP ="OK"
strTEST = strADRESSE
For intTEST = 1 to LEN(strTest)
If Mid(strTEST, intTEST, 1) = CHR(34) Then strTMP = strFejl
Next
IF strTMP <> "OK" THEN
strTestOK = strTMP
END IF
END IF
IF strTestOK="OK" THEN
strTMP ="OK"
strTEST = strPOSTNR
For intTEST = 1 to LEN(strTest)
If Mid(strTEST, intTEST, 1) = CHR(34) Then strTMP = strFejl
Next
IF strTMP <> "OK" THEN
strTestOK = strTMP
END IF
END IF
IF strTestOK="OK" THEN
strTMP ="OK"
strTEST = strBY
For intTEST = 1 to LEN(strTest)
If Mid(strTEST, intTEST, 1) = CHR(34) Then strTMP = strFejl
Next
IF strTMP <> "OK" THEN
strTestOK = strTMP
END IF
END IF
%>
<%
If strTestOK = "OK" Then
%>
<!--#include virtual="/dbsite/dbconnect/connect_searchdb.inc"-->
<%
Set SearchRS = Server.CreateObject("ADODB.Recordset")
SearchRS.Open "sted", SearchDB, adOpenStatic, adLockPessimistic
SearchRS.AddNew
SearchRS("host_id") = strHOST_ID
SearchRS("sted") = strSTED
SearchRS("adresse") = strADRESSE
SearchRS("postnr") = strPOSTNR
SearchRS("by") = strBY
SearchRS.Update
End If
If strTestOK = "OK" Then
LINK = Session("ReturnLink")
Session("ReturnLink") = "/dbsite/default.asp"
Response.Redirect (LINK)
END IF
END IF
%>
<!--#include virtual="/dbsite/include/selvet_top.inc"-->
<!--#include virtual="/aktiviteter/atop_sted_add.inc"-->
<%
If strTestOK <> "" Then
response.write "<FONT FACE=VERDANA,ARIAL SIZE=1 COLOR=RED><B>"
response.write "Fejl i dataangivelsen:<BR>"
response.write strTestOK
response.write "<BR>"
response.write "Data er IKKE gemt!<BR>"
response.write "</B></FONT>"
END IF
%>
<%strTestOK=""%>
<TABLE>
<TR><TD>
</TD><TD>
<FORM ACTION="<%=Request.ServerVariables("PATH_INFO")%>" METHOD="POST">
</TD></TR>
<TR><TD>
</TD><TD>
<INPUT TYPE="Hidden" NAME="host_id" VALUE="<%=Session("HostID")%>" onfocus=this.blur()>
</TD></TR>
<TR><TD>
<FONT FACE=VERDANA,ARIAL CLASS=Txt3>
Mødested:
</FONT>
</TD><TD>
<FONT FACE=VERDANA,ARIAL CLASS=Txt3>
<INPUT TYPE="Text" NAME="sted" VALUE="<%=strSTED%>" size="20">
</FONT>
</TD></TR>
<TR><TD>
<FONT FACE=VERDANA,ARIAL CLASS=Txt3>
Adresse:
</FONT>
</TD><TD>
<FONT FACE=VERDANA,ARIAL CLASS=Txt3>
<INPUT TYPE="Text" NAME="adresse" VALUE="<%=strADRESSE%>" size="20">
</FONT>
</TD></TR>
<TR><TD>
<FONT FACE=VERDANA,ARIAL CLASS=Txt3>
Postnummer:
</FONT>
</TD><TD>
<FONT FACE=VERDANA,ARIAL CLASS=Txt3>
<INPUT TYPE="Text" NAME="postnr" VALUE="<%=strPOSTNR%>" size="20">
</FONT>
</TD></TR>
<TR><TD>
<FONT FACE=VERDANA,ARIAL CLASS=Txt3>
By:
</FONT>
</TD><TD>
<FONT FACE=VERDANA,ARIAL CLASS=Txt3>
<INPUT TYPE="Text" NAME="by" VALUE="<%=strBY%>" size="20">
</FONT>
</TD></TR>
<TR><TD>
<FONT FACE=VERDANA,ARIAL CLASS=Txt3>
</FONT>
</TD><TD>
<FONT FACE=VERDANA,ARIAL CLASS=Txt3>
<INPUT TYPE="Submit" NAME="Submit" VALUE="SEND">
</FONT>
</FORM>
</TD></TR>
</TABLE>
<!--#include virtual="/aktiviteter/bund_sted_add.inc"-->
<!--#include virtual="/dbsite/include/selvet_bund.inc"-->
<%
Set SearchDB = Nothing
Set SearchRS = Nothing
%>
