Response.Write når felt ikke er udfyldt..
Hejsa... Jeg har en formular folk udfylder.. Det skal være sådan at hvis de ikke udfylder feltet. Så skal den skrive : * Dette felt skal udfyldesOG den skal \"huske\" de dataer som stod i de andre felter....
Koderne ser sådan her ud :
<html>
<head>
<title>Tilmeldingsformular</title>
</head>
<body bgcolor=\"#ffffff\">
<font color=\"#984a46\" size=\"3\" face=\"Verdana\">
<b>Tilmeldingsformular</b><br>
<table width=400>
<%
\'TurID samt Andet hentes og sættes
TurID = Trim(Request.Form(\"turid\"))
Kode = Trim(Request.Form(\"kode\"))
Andet = Replace(Request.Form(\"andet\"), vbCrLf, \"<br>\")
\'Databasen åbnes
set conn = server.createobject(\"ADODB.connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"intouch.mdb\")
conn.open DSN
\'Søgekriterier defineres
SQLkode = \"SELECT * FROM Turnavne Where (TurID = \'\" & TurID & \"\') AND (Kode = \'\" & Kode & \"\')\"
set RSkode = conn.execute( SQLkode )
If RSkode.EOF then
response.write \"<tr><td width=400><font color=\'984A46\' size=\'2\' face=\'Verdana\'>\"
response.write \"<b>Fejl - Forkert kode:</b><br>\"
response.write \"Den kode du indtastede til denne tur er forkert. Gå tilbage og prøv igen.<br>\"
response.write \"- <a href=\'default.asp\'><font color=\'#BF0000\'>Tilbage til turoversigt</font></a>.\"
response.write \"</td></tr>\"
Else
\'Databasen åbnes og gøres klar til både aflæsning og skrivning
Const adOpenKeyset = 1
Const adLockOptimistic = 3
set conn = server.createobject(\"ADODB.connection\")
StrDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"intouch.mdb\")
conn.open strDSN
\'Søgekriterier for Felter defineres
SQL2 = \"SELECT * FROM Felter Where TurID = \'\" & TurID & \"\'\"
set RS2 = conn.execute( SQL2 )
\'Søgekriterier for PersonID defineres
SQL3 = \"SELECT TOP 1 * FROM Data ORDER BY PersonID DESC\"
set RS3 = conn.execute( SQL3 )
\'Nyt PersonID oprettes
Old_Personid = RS3(\"personid\")
PersonID = Old_Personid + 1
rs3.close
Set rs3 = Nothing
\'Søgekriterier for Data defineres
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"SELECT * FROM Data Where (ID = 0)\"
rs.Open SQL, StrDSN, adOpenKeyset, adLockOptimistic
errorlog = \"0\"
count = 1
RS.Addnew
RS(\"PersonID\") = PersonID
RS.Update
\'Loop indtil alle dele i Felter er kørt igennem
do while not RS2.eof
\'Data hentes og defineres i variabler
feltnavn = RS2(\"feltnavn\")
data = Request.Form(\"\" & RS2(\"feltid\") & \"\")
If data = \"\" then
data = \"x\"
errorlog = \"1\"
End if
If feltnavn = \"First Name\" then
RS(\"First_Name\") = data
ElseIf feltnavn = \"Last Name\" then
RS(\"Last_Name\") = data
ElseIf feltnavn = \"Call Mr/Mrs/Miss\" then
RS(\"Call\") = data
ElseIf feltnavn = \"Title\" then
RS(\"Title\") = data
ElseIf feltnavn = \"Company\" then
RS(\"Company\") = data
ElseIf feltnavn = \"Department\" then
RS(\"Department\") = data
ElseIf feltnavn = \"Address\" then
RS(\"Address\") = data
ElseIf feltnavn = \"Postcode\" then
RS(\"Postcode\") = data
ElseIf feltnavn = \"City\" then
RS(\"City\") = data
ElseIf feltnavn = \"Country\" then
RS(\"Country\") = data
ElseIf feltnavn = \"Telephone\" then
RS(\"Telephone\") = data
ElseIf feltnavn = \"Fax\" then
RS(\"Fax\") = data
ElseIf feltnavn = \"GSM\" then
RS(\"GSM\") = data
ElseIf feltnavn = \"E-mail\" then
RS(\"Email\") = data
ElseIf feltnavn = \"Arrival Date\" then
RS(\"Arrival_Date\") = data
ElseIf feltnavn = \"Arrival Airport\" then
RS(\"Arrival_Airport\") = data
ElseIf feltnavn = \"Arriving from Airport\" then
RS(\"Arriving_from_Airport\") = data
ElseIf feltnavn = \"Arrival Flight\" then
RS(\"Arrival_Flight\") = data
ElseIf feltnavn = \"Arrival Time\" then
RS(\"Arrival_Time\") = data
ElseIf feltnavn = \"Departure Date\" then
RS(\"Departure_Date\") = data
ElseIf feltnavn = \"Departure Airport\" then
RS(\"Departure_Airport\") = data
ElseIf feltnavn = \"Departure Flight\" then
RS(\"Departure_Flight\") = data
ElseIf feltnavn = \"Departure Time\" then
RS(\"Departure_Time\") = data
ElseIf feltnavn = \"Arrival Transfer needed\" then
RS(\"Arrival_Transfer_needed\") = data
ElseIf feltnavn = \"Departure Transfer needed\" then
RS(\"Departure_Transfer_needed\") = data
Else
RS(\"\" & count & \"\") = data
count = count + 1
End if
rs2.movenext
loop
\'Andet skrives i databasen
RS(\"Andet\") = Andet
RS.Update
RS(\"turid\") = TurID
RS.Update
If errorlog <> \"1\" then
response.write \"<tr><td width=400><font color=\'984A46\' size=\'2\' face=\'Verdana\'>\"
response.write \"Tak for din tilmelding. Du vil snarest muligt hører fra os igen.<br>\"
response.write \"- <a href=\'default.asp\'><font color=\'#BF0000\'>Tilbage til turoversigt</font></a>.\"
response.write \"</td></tr>\"
Elseif errorlog = \"1\" then
response.write \"<tr><td width=400><font color=\'984A46\' size=\'2\' face=\'Verdana\'>\"
response.write \"<b>Fejl - ingen data (Personid: \" & PersonID & \"):</b><br>\"
response.write \"Du har ikke udfyldt alle felterne, hvilket er nødvendigt for at tilmelde sig en tur. Gå tilbage og prøv igen.<br>\"
response.write \"- <a href=\'default.asp\'><font color=\'#BF0000\'>Tilbage til turoversigt</font></a>.\"
response.write \"</td></tr>\"
\'Data slettes igen
SQLDel = \"Delete * from Data where (PersonID = \'\" & PersonID & \"\')\"
conn.execute(SQLDel)
End if
\'Databasen lukkes
rs.Close
Set rs = Nothing
rs2.Close
Set rs2 = Nothing
Set conn = Nothing
End if
\'Databasen lukkes
RSkode.Close
Set RSkode = Nothing
%>
</table></font>
</body>
</html>
