Hej Kim
Det er helt sikkert noget jeg kan forstå og bruge :-) Nu er der bare at få kodet alle siderne rigtigt! Kan du hjælpe mig med det? Ligger lige siderne her hvis du orker:
----------------------------- * ---------------
Booking12.asp
<body>
<!--#include file="include/menu14.inc"-->
<h6><div id="indhold">
<a href="Booking12.asp?id=Book1">Linktekst 1</a>
<a href="Booking12.asp?id=Book2">Linktekst 2</a>
<a href="Booking12.asp?id=Book3">Linktekst 3</a>
<%
side_ID = Request.Querystring("id")
Dim side
Select Case side_ID ' definer de 'lovlige' sider
Case "Book1", "Book2", "Book3"
side = side_ID
Case Else
side = "BookS1" ' default indhold hvis intet er specifiseret
End Select
Server.Execute(side & ".inc")
%>
</div></h6>
<!--#include file="include/fodnote.inc"-->
</body>
----------------------- * ----------------------
Book1.inc
Vi er lokaliseret på Falster, men spiller gerne over
hele Sjælland, Møn og Lolland-Falster
<p>Tlf. 54 44 65 20</p>
<p>
<a href="mailto:finn.wulff@tele2adsl.dk?subject=Forespørgsel på musik &Body=
%0D%0D
Hej Tavelin´Band!
%0D%0D%0D
Kontakt mig venligst mellem kl. og kl.
%0D%0D%0D
Mit navn er:
%0D%0D
Min adresse er:
%0D%0D
Mit telefonnummer er:
%0D%0D%0D
Skriv evt. en kort besked her:
%0D%0D%0D
Med venlig hilsen">E-mail</a></p>
----------------------- * ---------------------------
Book2.inc
<body>
<form method="post" action="Booking12.asp?id=Book3">
Complete this form and click the submit-button. We will answer your
questions as soon as possible.
<br><br>
Your name<br>
<input type="text" size="25" name="name"><br>
Your email<br>
<input type="text" size="25" name="email"><br> Recipient email<br>
<input type="text" size="25" name="recipient"><br> State your business<br>
<select name="subject" size="1">
<option value="help">help
<option value="tips">tips
<option value="other">other
</select>
<br> Enter your question<br>
<textarea name="body" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
<input type="submit" value=" Submit ">
</form>
</body>
----------------------------- * -----------------
Book3.inc
<body>
<form method="post" action="info.asp">
<% name = server.HTMLEncode(request("name")) %>
<% email = server.HTMLEncode(request("email")) %>
<% recipient = server.HTMLEncode(request("recipient")) %>
'Hvad skriver jeg her?
subject = "Regarding " & Request.Form("subject")
body=request.form("body")
<form>
<input type="hidden" name="name" value="<% = name %>">
<input type="hidden" name="email" value="<% = email%>">
<input type="hidden" name="recipient" value="<% = recipient %>">
'Hvad skriver jeg her?
subject = "Regarding " & Request.Form("subject")
body=request.form("body")
<br> Enter your question<br>
<textarea name="body" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
<input type="submit" value=" Submit ">
</form>
</body>
---------------------------- * -----------------------
info.asp
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.rokrod.dk"
JMail.Sender = "admin@rockrod.dk"
JMail.Subject = "Information"
JMail.AddRecipient "admin@rockrod.dk"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR", "Book3")
' ********** Her starter selve email-en
JMail.Body = "Dette er linie 1 af brevet" & vbCrLf &_
"Og her kommer linie 2"
' ********** Her slutter selve email-en
JMail.Execute
Set JMail = Nothing
%>
<html><body>
Emailen er sendt!
</body></html>
Ovenstående skulle altså samlet (på et eller andet tidspunkt) gerne udgøre min færdige form :-)
