Prøv denne:
<%@ Language=VBScript %>
<!--#INCLUDE VIRTUAL="islogin.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny side 1</title>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
function checkForm(formRef)
{
alertTekst = ""
returval = true;
if(formRef.Antal.value=="")
{
alertTekst += "Mangler data i Antal feltet\n"
returval = false;
}
if(formRef.SpecMarking.value=="")
{
alertTekst += "Mangler data i Special Marking feltet\n"
returval = false;
}
if (!returval)
alert(alertTekst);
return returval;
}
//-->
</SCRIPT>
<style fprolloverstyle>A:hover {color: #050B51; font-size: 8 pt; font-family: Arial}
a {text-decoration:none;}
</style>
</head>
<body bgproperties="fixed" background="images/line.gif" topmargin="0" leftmargin="0" link="#008000" vlink="#008000" alink="#008000">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN
Session("END") = Session("END")
If Session("END") = 1 Then
Session("EndText") = "Weldend Material: "
set rsEndMateriale= server.Createobject("ADODB.Recordset")
SQL_String = "Select Distinct MATERIALE from svejseendedata order by MATERIALE ASC"
rsEndMateriale.open SQL_String, Conn
else
end if
If Session("END") = 2 or Session("END") = 3 Then
Session("EndText") = "Flange Material: "
set rsEndMateriale= server.Createobject("ADODB.Recordset")
SQL_String = "Select Distinct Standard from flangedata order by STANDARD ASC"
rsEndMateriale.open SQL_String, Conn
else
end if
strSQLSpec = "Select * From products WHERE Id= " & Request.Querystring("ID")
Set rsEJ = Conn.Execute(strSQLSpec)
Session("OrderNumber") = Session("OrderNumber")
Session("EjTYPE") = rsEJ("NAVN")
Session("EjPrice") = rsEJ("PRIS")
Session("EjID") = Request.Querystring("ID")
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#050B51">
<tr>
<td width="100%"><img border="0" src="images/logo.jpg"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<div align="center">
<p align="left"><font size="1" face="Arial"> Logged in as: <%response.write Session("contact")%><br>
<font size="1" face="Arial">Customer Number: <% response.write Session("customer")%><br>
<font size="1" face="Arial">Your LoginID is: <% response.write Session("LoginID")%></font></p>
<center>
<td width="25%"> </td>
<td width="50%" colspan="2">
<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bgcolor="#F3F3F3">
<tr>
<td width="100%">
<form name="MyForm" method="POST" action="ejadd.asp" onSubmit="return checkForm(this)";">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td width="100%" colspan="2"><font face="Arial" size="1"><br>
You wanna ad this Expansion Joint to your order:<b>
<%
strDetails = rsEJ("NAVN")
strLink = "<a href='ejspec.asp?id=" & rsEJ("Id") & "'>" & strDetails & "</a>"
response.write strLink
%></b><br>
<br>
</font></td>
</tr>
<tr>
<td width="30%"><% response.write ("<font size='1' face='Arial'>") & Session("ENDText") %><font face="Arial" size="1"><br>
</font></td>
<td width="70%"><font size="1" face="Arial">
<select size="1" name="EndType">
<%
Do until rsEndMateriale.EOF
If Session("END") = 1 Then
response.write "<option value='"& rsEndMateriale("MATERIALE") & "'>" & rsEndMateriale("MATERIALE")
else
response.write "<option value='"& rsEndMateriale("STANDARD") & "'>" & rsEndMateriale("STANDARD")
end if
rsEndMateriale.movenext
loop
%>
</select><br>
</font></td>
</tr>
<tr>
<td width="30%"><font face="Arial" size="1">Antal:<br>
</font></td>
<td width="70%"><font size="1" face="Arial"><input type="text" name="Antal" size="4"><br>
</font></td>
</tr>
<tr>
<td width="30%"><font face="Arial" size="1">Special Marking:<br></font></td>
<td width="70%"><font size="1" face="Arial">
<input type="text" name="SpecMarking" size="20"><br></font></td>
</tr>
<tr>
<td width="30%"><font face="Arial" size="1"><br>
Documentation:</font></td>
<td width="70%"><font size="1" face="Arial"><br>
<input type="checkbox" name="Doc31B" value="ON"> 3.1B Material Certificate</font></td>
</tr>
<tr>
<td width="30%"> </td>
<td width="70%"><font size="1" face="Arial">
<input type="checkbox" name="DocPED" value="ON"> PED (CE-Marking)</font></td>
</tr>
</table>
<p>
<input type="submit" value="send">
</font></p>
</form>
<p><font face="Arial" size="1"><br></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="25%"> </td>
<td width="25%"> </td>
<td width="25%"> </td>
<td width="25%"> </td>
</tr>
<tr>
<td width="100%" colspan="4">
<div align="center">
<center>
<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="50%" id="AutoNumber5" bgcolor="#FFFFFF">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6" bgcolor="#FFFFFF">
<tr>
<td width="100%"><font size="1">Options</font></td>
</tr>
<tr>
<td width="100%"><font size="1" face="Arial"><a href="java script:history.back(-1);">Go Back</a></td>
</tr>
<tr>
<td width="100%"><a href="java script:window.close();"><font face="Arial" size="1">Logout</font></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</font></font>
</body>
</html>
Du havde ikke fjernet/tilrettet alle if-sætningerne i checket, så den fejlede på
if(formRef.test2.value=="")
Jeg har også ændret navnet på formen, så den ikke hedder det samme som variablen (der bliver overført) i funktionen.
Ny bruger
Nybegynder
Opret
Preview
