Få et asp-script til at sende mail
Jeg har en side (den kommer her under) hvor jeg får nogen data fra brugeren, blandt andet en email-adresse...alt data kunne jeg godt tænke mig ud over at den bliver smidt ned i en accessdatabase blev sendt til brugerens email.... er der nogen der kan hjælpe mig med det???
<-- tilmeld.asp -->
<% response.Expires = 0 %>
<% response.Buffer = TRUE %>
<%
If Request.Form("Add") <> "" Then
strError = ""
strFornavn = Trim(Request.Form("Fornavn"))
strEfternavn = Trim(Request.Form("Efternavn"))
strEmail = Trim(Request.Form("Email"))
strTlf = Trim(Request.Form("Tlf"))
strType = Trim(Request.Form("Type"))
If Len(strType) = 0 Then
strError = "Du skal skrive en medlemstype!"
ElseIf Len(strFornavn) = 0 Then
strError = "Du skal skrive medlemmets fornavn!"
ElseIf Len(strEfternavn) = 0 Then
strError = "Du skal skrive medlemmets efternavn!"
ElseIf Len(strEmail) = 0 Then
strError = "Du skal skrive en email!"
ElseIf Len(strTlf) = 0 Then
strError = "Du skal skrive et telefonnummer!"
ElseIf Len(strType) = 0 Then
strError = "Du skal vælge en jolletype!"
End If
If Len(strError) = 0 Then
Set rstemp = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM joller WHERE (ID = 0)"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rstemp.Open strSQL, strDSN, 1, 3
If (rstemp.BOF Or rstemp.EOF) Then
rstemp.AddNew
rstemp("Fornavn") = strFornavn
rstemp("Efternavn") = strEfternavn
rstemp("Email") = strEmail
rstemp("Tlf") = strTlf
rstemp("Type") = strType
rstemp.Update
End If
rstemp.Close
Set rstemp = Nothing
Response.Redirect("default.asp")
Else
strError = "<p><font face=verdana size=1 color=#FFFFFF><b>"& strError &"</b></font></p>"
strMode = "add"
End If
End If
%>
<html>
<head>
<title>Tilmeld</title>
<head>
<body>
<form method="post" action="tilmeld">
<table border="0" width="75%" cellspacing="0" cellpadding="0" height="223">
<tr>
<td width="100%" height="25"><%=strError%>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Vælg jolletype:</font><br>
<select name="Type" tabindex="1" value="<%=strType%>">
<option value="E-jolle">E-jolle</option>
<option value="29er">29er</option>
<option value="405">405</option>
<option value="Laser">Laser</option>
</select>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Fornavn:</font><br>
<input type="text" name="Fornavn" size="28" class="box" tabindex="2" value="<%=strFornavn%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Efternavn:</font><br>
<input type="text" name="Efternavn" size="28" class="box" tabindex="3" value="<%=strEfternavn%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Email:</font><br>
<input type="text" name="Email" size="28" class="box" tabindex="4" value="<%=strEmail%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Dit telefonnummer:</font><br>
<input type="text" name="Tlf" size="28" class="box" tabindex="5" value="<%=strTlf%>">
</td>
</tr>
<tr>
<td width="100%" height="46"><br>
<input type="submit" value=" Tilmeld " name="Add" class="box" tabindex="6">
<input type="button" value=" Fortryd " name="Annuller" class="box" onClick="java script:location.href='tilmeldt.asp'" tabindex="7">
</td>
</tr>
</table>
</form>
</body>
</html>
