Tester lige EMail password... får fejl!
Fandt dette script på eksperten, og stod faktisk selv og manglede et script der kan gøre dette for mig!<!--#include virtual="/gas/dbconn.asp" -->
<%
If request.querystring("mode") = "send" Then
SQL = "SELECT * FROM users WHERE email = '"& Request.Form("email") &"'"
set tjek = conn.ExeCute(SQL)
If tjek.EOF Then
Response.Write "E-mail adressen findes ikke"
Else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Dit password"
Mailer.FromAddress= "mail@uo-dan.dk"
Mailer.RemoteHost = "mail.uo-dan.dk"
Mailer.AddRecipient "Letstart"
Mailer.Subject = "glemt password"
Mailer.BodyText = "Her er dit password: " & tjek("password") & ""
If Mailer.SendMail Then
Set Mailer = Nothing
Else
Response.Write "Der opstod en fejl: " & Mailer.Response
End If
End if
elseif request.querystring("mode") = "" then
%>
<!--#include virtual="/gas/dbclose.asp" -->
<form method="post" action="domain.asp?mode=send">
<br>
<table width="70%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="font">Indtast din Email her</td>
<td>
<input type="text" name="email" size="30">
</td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" name="Submit" value="Send">
</td>
</tr>
</table>
</form>
<% end if %>
Men jeg får denne fejl når jeg prøver og køre det:
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'Mailer.AddRecipient'
/gas/admin/password/domain.asp, line 15
Why? :)
