Ok, testade men får inte upp varningsrutan för det.....
Jag lägger in koden för hela sidan :
<%Response.Buffer = "True"
Function FixaTecken(str)
FixaTecken = Replace(Trim(str),"'","''")
End function
%>
<html>
<head>
<title>Biljettbokning</title>
<script language="JavaScript">
<!--
function blured()
{
for (a in document.links) document.links[a].onfocus = document.links[a].blur;
}
if (document.all)
{
document.onmousedown = blured;
}
// -->
</script>
<script language="JavaScript">
<!--
function tecken()
{
if (document.add.namn.value=="")
{
alert("Ditt namn måste du skriva!");
return false;
} else if (document.add.antal.value=="") || parseInt(document.add.antal.value=="")>10)
{
alert("Du kan beställa max 10 st!");
return false;
} else if (document.add.email.value=="")
{
alert("Du glömde din email!");
return false;
} else if (document.add.meddelande.value=="")
{
alert("Du glömde ett meddelande!");
return false;
}
}
//-->
</script>
<link rel="stylesheet" href="stil.css" type="text/css">
</head>
<body bgcolor="#f0f0f0">
<% If Request.QueryString("do") = "" Then%>
<form name="add" method="post" action="kontakta.asp?do=add" onSubmit="return tecken()">
<table border="0" align="center">
<tr>
<td colspan="2"><b>Boka biljetter</b></td>
</tr>
<tr>
<td colspan="2"><hr noshade></td>
</tr>
<tr>
<td>Namn:<br><input type="text" name="namn" size="15"></td>
<td>Email:<br><input type="text" name="email" size="25"></td>
</tr>
<tr>
<td>Antal<br><input type="text" name="antal" size="15"></td>
<td>Hemsida:<br><input type="text" name="hemsida" size="25"></td>
</tr>
<tr>
<td colspan="2">Meddelande:<br><textarea name="meddelande" cols="43" rows="6"></textarea></td>
</tr>
<tr>
<td colspan="2"><hr noshade></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="Skicka"></td>
</tr>
<%If Session("mess") <> "" Then%>
<tr>
<td colspan="2"><hr></td>
</tr>
<tr>
<td colspan="2" align="center">
<%Response.Write Session("mess")
Session("mess") = ""%>
</td>
</tr>
<%End If%>
</table>
</form>
<%End If%>
<% If Request.QueryString("do") = "add" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("kontakta.mdb")
Namn = Request.Form("namn")
Email = Request.Form("email")
Hemsida = Request.Form("hemsida")
If Hemsida <> "" Then
If Left(Hemsida,7) = "http://" Then
Hemsida = Hemsida
Else
Hemsida = "http://" & Hemsida
End If
End If
antal = Request.Form("antal")
Meddelande = FixaTecken(Server.HTMLEncode(Request.Form("meddelande")))
Datum = Now
SQL = "Insert Into kontakta(namn,email,hemsida,antal,meddelande,datum) Values('" & Namn & "','" & Email & "','" & Hemsida & "','" & Antal & "','" & Meddelande & "',#" & Datum & "#)"
Conn.Execute(SQL)
Session("mess") = "Tackar "& Request.Form("namn") & "!<br> Dina biljetter är nu <br>bokade och kan hämtas vid entrén innan kl 23!"
Response.Redirect "kontakta.asp"
End If%>
</body>
</html>
