<%
if Request.Querystring("isSubmitted") = "yes" then
Dim fname, lname
Dim objCDO
fname = Request.Querystring("First_Name")
lname = Request.Querystring("Last_Name")
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "hochi@aon.at"
objCDO.To = "hochi@aon.at"
objCDO.Cc = ""
objCDO.Bcc = ""
objCDO.Subject = "Ersatzteilanfrage"
objCDO.Body = "Name: " & fname & " " & lname
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
ConfirmMsg = "Danke für ihre Anfrage!"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Neue Seite 1</title>
</head>
<body>
<% if ConfirmMsg <> "" then %>
<h2><%= ConfirmMsg %></h2>
<% end if %>
<form action="formtest.asp" method="get" name="Input_Form">
First Name:
<input type="text" size="30"
maxlength="50" name="First_Name">
Last Name:
<input type="text" size="30"
maxlength="50" name="Last_Name">
<input type="hidden" name="isSubmitted" value="yes">
<input type="submit" value="Submit Form">
</form>
</html>
Das ist der Code für das ASP Script, könnte sich das vielleicht jemand anschauen.
mfG
Hewlett
|