jeg er ved at blive tosset her.
jeg har en bestillings form som sender til en udskriv reging
side.
der er en knap som sende videre til en tak side OG gemmer i en db
( access ) MEN jeg ville gerne lige have en mail som fortæller at
der er bestilt et hotel. MEN DET VIRKER IKKE. HJÆÆÆÆLLP
email formen skal jo hente info fra den side man kommer fra da
der ikke er nogensteder man kan skrive på denne side. hvad gør
jeg galt??
<td class="font1">Total </td>
<td class="font1" align="right"> <%=
(Val(Request.Form("webspace")) + Val(Request.Form("mail"))) *
0.25 + (Val(Request.Form("webspace")) +
Val(Request.Form("mail")) )%>
kr </td>
<td> </td>
</tr>
<tr>
<td colspan="3" height="1%" bgcolor="#000000"><img
src="grafik/snyd_s.gif" width="315" height="1"></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td class="error"><br>
Når du har printet denne side ud skal du trykke
på Send Bestilling
for <br>
at afslutte din order.<a href="#"
onclick="window.print();return false">Klik her for at printe</a>
<br>
Din order bliver først oprettet når der er
betalt.</td>
</tr>
<%
If request.querystring("mode") = "send" Then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Bestilling"
Mailer.FromAddress= "do@micropage.dk"
Mailer.RemoteHost = "pasmtp.tele.dk"
Mailer.AddRecipient "Dennis", "do@micropage.dk"
Mailer.Subject = "Bestiling af Hotel"
Mailer.BodyText = request.form ("webspace")
If Mailer.SendMail Then
Else
End If
Set Mailer = Nothing
End If
%>
</table><form action="modtag.asp?script=gem" method="POST">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<input type="hidden" name="webspace"
value="<%=request.form("webspace")%>">
<input type="hidden" name="mail"
value="<%=request.form("mail")%>">
<input type="hidden" name="domain"
value="<%=request.form("domain")%>">
<input type="hidden" name="domainname"
value="<%=request.form("domainname")%>">
<input type="hidden" name="name"
value="<%=request.form("name")%>">
<input type="hidden" name="lastname"
value="<%=request.form("lastname")%>">
<input type="hidden" name="company"
value="<%=request.form("company")%>">
<input type="hidden" name="street"
value="<%=request.form("street")%>">
<input type="hidden" name="postcode"
value="<%=request.form("postcode")%>">
<tr>
<td width="40%"> </td>
<td width="33%">
<input type="submit" name="Submit" value="Send Bestilling">
<input type="submit" name="Submit2" value="Slet alt">
</td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<%
If Request.QueryString("script") = "gem" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("order.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM billorder"
rs.Open strSQL, Conn, 1, 3
rs.addnew
rs("webspace") = Request.Form ("webspace")
rs("mail") = Request.Form ("mail")
rs("name") = Request.Form ("name")
rs("lastname") = Request.Form ("lastname")
rs("company") = Request.Form ("company")
rs("city") = Request.Form ("city")
rs("street") = Request.Form ("street")
rs("postcode") = Request.Form ("postcode")
rs("phone") = Request.Form ("phone")
rs("email") = Request.Form ("email")
rs("password") = Request.Form ("password")
rs("domainname") = Request.Form ("domainname")
rs("domain") = Request.Form ("domain")
rs.update
Response.redirect"tak.asp"
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
End If
%>
</body>
</html>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials