hvordan laver jeg det her script om?
Hej med jer. Jeg har på min datters side brugt det her script. Men nu har min søn også fået sin egen hjemmeside. Den er bare hostet hos surftown, og de understøtter åbenbart ikke det script. Hvordan kan jeg lave det om? Der står hos min host at man skal bruge formmail.Min tidligere brugte kode ser sådan her ud->
<%@ Language=VBScript %>
<%
if Request.Form("sendknap") = "Send" then
navn = Request.Form("navn")
email = Request.Form("email")
kommentar = Request.Form("kommentar")
body = navn & vbCrLf & email
body = body & vbCrLf & vbCrLf & "Evt. kommentar: " & vbCrLf & vbCrLf & kommentar
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "" & Request.Form("navn") & ""
Mailer.FromAddress = "" & Request.Form("email") & ""
Mailer.RemoteHost = "mail.xxx.dk"
Mailer.AddRecipient "Password til xxx","xxx@xxx.dk"
Mailer.Subject = "Jamies hjemmeside"
Mailer.BodyText = body
If Mailer.SendMail Then
Response.Write("Tak for det, min Mor sender et brugernavn og password hvis du får lov at få et...")
Else
Response.Write("Der skete en fejl. Fejlen var: " & Mailer.Response)
End If
Else
%>
<form method="post" action="rekvirerpwd.asp">
<table border="0" STYLE="table-layout: fixed" width="100%" class="menu7">
<tr>
<td width="11%" align="center"><b>Navn</b></font></td>
<td width="49%" align="center" <b><input type="text" name="navn" size="31"></b></font></td>
</tr>
<tr>
<td width="11%" align="center"><b>Email</b></font></td>
<td width="49%" align="center"><b> <input type="text" name="email" size="31"></b></font></td>
</tr>
<tr>
<td width="100%" colspan="2" align="center"><b><br> <textarea name="kommentar" rows="2" cols="43">Skriv her hvis du har et specielt ønske til brugernavn og password</textarea><br>
<input type="submit" name="sendknap" value="Send">
</b>
</td>
</tr>
</table>
</form>
<b>
<%
End If
%>
