her er mit script så:
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"Flyrejser.mdb\")
%>
<html>
<head>
<script language=\"JavaScript\" type=\"text/javascript\">
function ChangePhone( denne, denAnden ) {
if ( denne.checked ) {
denAnden.checked = false;
document.all.shahid.innerText = denne.value;
} else
if ( denAnden.checked ) {
document.all.shahid.innerText = denAnden.value;
}
}; //end ChangePhone()
function MySubmit(intTal){
if (intTal == 1){
if (Form.Select2){
document.Form.Select2.selectedIndex = 0;
}
if (Form.Select3){
document.Form.Select3.selectedIndex = 0;
}
}
if (intTal == 2){
if (Form.Select3){
document.Form.Select3.selectedIndex = 0;
}
}
document.Form.submit();
}
</script>
<title>Untitled</title>
</head>
<body>
<form method=\"post\" name=\"Form\" id=\"Form\" action=\"\">
<table cellspacing=\"2\" cellpadding=\"2\" border=\"0\">
<tr>
<td>Email:</td>
<td><input type=\"checkbox\" checked name=\"Email\" value=\"Email:\"
onClick=\"ChangePhone( this, this.form.Telefon )\">
Telefon: <input type=\"checkbox\" name=\"Telefon:\" value=\"Telefon:\"
onClick=\"ChangePhone( this, this.form.Email )\">
</td>
<td></td>
</tr>
<tr>
<td>Kontinent:</td>
<td>
<select name=\"Select1\" onChange=\"java script:MySubmit(1)\">
<option value=\"0\" selected>Vælg</option>
<%
Set rs = Conn.Execute(\"SELECT * FROM tblKontinent\")
If Not (rs.BOF And rs.EOF) Then
Do
If CLng(Request.Form(\"Select1\")) = CLng(rs(\"ID\")) Then
Response.Write \"<option value=\"\"\" & rs(\"ID\") & \"\"\" selected>\" & rs(\"Kontinent\") & \"<br>\"
Else
Response.Write \"<option value=\"\"\" & rs(\"ID\") & \"\"\">\" & rs(\"Kontinent\") & \"<br>\"
End If
rs.MoveNext
Loop While Not rs.EOF
End If
%>
</select>
<%
If Request.Form(\"Select1\") <> \"\" Then
%>
Land:
<select name=\"Select2\" onChange=\"java script:MySubmit(2)\">
<option value=\"0\" selected>Vælg</option>
<%
Set rs = Conn.Execute(\"SELECT * FROM tblLand WHERE refKontinent = \" & CLng(Request.Form(\"Select1\")) & \";\")
If Not (rs.BOF Or rs.EOF) Then
Do
If CLng(Request.Form(\"Select2\")) = CLng(rs(\"ID\")) Then
Response.Write \"<option value=\"\"\" & rs(\"ID\") & \"\"\" selected>\" & rs(\"Land\") & \"<br>\"
Else
Response.Write \"<option value=\"\"\" & rs(\"ID\") & \"\"\">\" & rs(\"Land\") & \"<br>\"
End If
rs.MoveNext
Loop While Not rs.EOF
End If
%>
</select>
<%
End If
If Request.Form(\"Select2\") <> \"\" Then
%>
<tr>
<td> By: </td>
<td><select name=\"Select3\" onChange=\"java script:MySubmit(3)\">
<option value=\"0\" selected>Vælg</option>
<%
Set rs = Conn.Execute(\"SELECT * FROM tblBy WHERE refLand = \" & CLng(Request.Form(\"Select2\")) & \";\")
If Not (rs.BOF Or rs.EOF) Then
Do
If CLng(Request.Form(\"Select3\")) = CLng(rs(\"ID\")) Then
Response.Write \"<option value=\"\"\" & rs(\"ID\") & \"\"\" selected>\" & rs(\"By\") & \"<br>\"
Else
Response.Write \"<option value=\"\"\" & rs(\"ID\") & \"\"\">\" & rs(\"By\") & \"<br>\"
End If
rs.MoveNext
Loop While Not rs.EOF
End If
%>
</select>
<%
End If
If Request.Form(\"Select3\") <> \"\" Then
%>
Afgang:
<select name=\"Select4\" onChange=\"java script:MySubmit(4)\">
<option value=\"0\" selected>Vælg</option>
<%
Set rs = Conn.Execute(\"SELECT * FROM tblAfgang WHERE refBy = \" & CLng(Request.Form(\"Select3\")) & \";\")
If Not (rs.BOF Or rs.EOF) Then
Do
If CLng(Request.Form(\"Select4\")) = CLng(rs(\"ID\")) Then
Response.Write \"<option value=\"\"\" & rs(\"ID\") & \"\"\" selected>\" & rs(\"Afgang\") & \"<br>\"
Else
Response.Write \"<option value=\"\"\" & rs(\"ID\") & \"\"\">\" & rs(\"Afgang\") & \"<br>\"
End If
rs.MoveNext
Loop While Not rs.EOF
End If
%>
</select>
<%
End If
If Request.Form(\"Select4\") <> \"\" Then
%>
Pris:
<select name=\"Select5\">
<option value=\"0\" selected>Vælg</option>
<%
Set rs = Conn.Execute(\"SELECT * FROM tblPris WHERE refAfgang = \" & CLng(Request.Form(\"Select4\")) & \";\")
If Not (rs.BOF Or rs.EOF) Then
Do
If CLng(Request.Form(\"Text1\")) = CLng(rs(\"ID\")) Then
Response.Write \"<option value=\"\"\" & rs(\"ID\") & \"\"\" selected>\" & rs(\"Pris\") & \"<br>\"
Else
Response.Write \"<option value=\"\"\" & rs(\"ID\") & \"\"\">\" & rs(\"Pris\") & \"<br>\"
End If
rs.MoveNext
Loop While Not rs.EOF
End If
%>
<%
End If
%>
</select>
</td>
</tr>
<tr>
<td>Navn:</td>
<td><input type=\"text\" name=\"Text2\" size=\"52\" maxlength=\"50\"></td>
</tr>
<td>Adresse:</td>
<td><input type=\"text\" name=\"Text3\" size=\"52\" maxlength=\"50\"></td>
<tr>
<td width=\"10\">Postnr:</td>
<td><input type=\"text\" name=\"Text4\" size=\"5\" maxlength=\"4\"> By: <input type=\"text\" name=\"Text5\" size=\"40\" maxlength=\"39\"></td>
</tr>
<tr>
<td><DIV ID=\"shahid\">Email:</DIV></td>
<td><input type=\"text\" name=\"Text5\" size=\"31\" maxlength=\"30\"></td>
</tr>
<td>Udrejsedato:</td>
<td><select name=\"Select6\">
<option value=\"0\"selected>1
<option value=\"0\">2
<option value=\"0\">3
<option value=\"0\">4
<option value=\"0\">5
<option value=\"0\">6
<option value=\"0\">7
<option value=\"0\">8
<option value=\"0\">9
<option value=\"0\">10
<option value=\"0\">11
<option value=\"0\">12
<option value=\"0\">13
<option value=\"0\">14
<option value=\"0\">15
<option value=\"0\">16
<option value=\"0\">17
<option value=\"0\">18
<option value=\"0\">19
<option value=\"0\">20
<option value=\"0\">21
<option value=\"0\">22
<option value=\"0\">23
<option value=\"0\">24
<option value=\"0\">25
<option value=\"0\">26
<option value=\"0\">27
<option value=\"0\">28
<option value=\"0\">29
<option value=\"0\">30
<option value=\"0\">31</option>
</select>
<select name=\"Select7\">
<option value=\"0\" selected>Januar
<option value=\"0\">Februar
<option value=\"0\">Marts
<option value=\"0\">April
<option value=\"0\">Maj
<option value=\"0\">Juni
<option value=\"0\">Juli
<option value=\"0\">August
<option value=\"0\">September
<option value=\"0\">Oktober
<option value=\"0\">November
<option value=\"0\">December
</select>
<select name=\"Select8\">
<option value=\"0\" selected>2001
<option value=\"0\">2002
<option value=\"0\">2003
<option value=\"0\">2004
<option value=\"0\">2005
<option value=\"0\">2006
</select>
</td>
<tr>
<td>Returejse:</td>
<td><select name=\"Select9\">
<option value=\"0\"selected>1
<option value=\"0\">2
<option value=\"0\">3
<option value=\"0\">4
<option value=\"0\">5
<option value=\"0\">6
<option value=\"0\">7
<option value=\"0\">8
<option value=\"0\">9
<option value=\"0\">10
<option value=\"0\">11
<option value=\"0\">12
<option value=\"0\">13
<option value=\"0\">14
<option value=\"0\">15
<option value=\"0\">16
<option value=\"0\">17
<option value=\"0\">18
<option value=\"0\">19
<option value=\"0\">20
<option value=\"0\">21
<option value=\"0\">22
<option value=\"0\">23
<option value=\"0\">24
<option value=\"0\">25
<option value=\"0\">26
<option value=\"0\">27
<option value=\"0\">28
<option value=\"0\">29
<option value=\"0\">30
<option value=\"0\">31</option>
</select>
<select name=\"Select10\">
<option value=\"0\">Januar
<option value=\"0\" selected>Februar
<option value=\"0\">Marts
<option value=\"0\">April
<option value=\"0\">Maj
<option value=\"0\">Juni
<option value=\"0\">Juli
<option value=\"0\">August
<option value=\"0\">September
<option value=\"0\">Oktober
<option value=\"0\">November
<option value=\"0\">December
</select>
<select name=\"Select11\">
<option value=\"0\">2001
<option value=\"0\" selected>2002
<option value=\"0\">2003
<option value=\"0\">2004
<option value=\"0\">2005
<option value=\"0\">2006
</select>
</td>
</tr>
<tr>
<td>Voksne:</td>
<td><select name=\"Select12\">
<option value=\"0\" selected>0
<option value=\"0\">1
<option value=\"0\">2
<option value=\"0\">3
<option value=\"0\">4
<option value=\"0\">5
<option value=\"0\">6
<option value=\"0\">7
<option value=\"0\">8
<option value=\"0\">9
<option value=\"0\">10
</select>
</td>
</tr>
<tr>
<td>Børn 2-11 år:</td>
<td><select name=\"Select14\">
<option value=\"0\" selected>0
<option value=\"0\">1
<option value=\"0\">2
<option value=\"0\">3
<option value=\"0\">4
<option value=\"0\">5
<option value=\"0\">6
<option value=\"0\">7
<option value=\"0\">8
<option value=\"0\">9
<option value=\"0\">10
</select>
Angiv fødselsdato: <input type=\"text\" name=\"fødselsdato\">
</td>
</tr>
<tr>
<td></td>
<td><input type=\"submit\" onclick=\"document.Form.submit()\"> <input type=\"reset\" name=\"Nulstil\"></td>
</tr>
</table>
<%
Conn.Close
Set Conn = Nothing
%>
</form>
</body>
</html>
