sendmail virker ikke, men hvorfor?
Jeg håber du kan hjælpe!<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/cdkey.asp" -->
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Session("install") <> "") Then
rs__MMColParam = Session("install")
End If
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_cdkey_STRING
rs.Source = "SELECT * FROM cdkey WHERE install = " + Replace(rs__MMColParam, "'", "''") + ""
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
'Response.Write(rs)
rs.Open()
rs_numRows = 0
If Not rs.EOF Or Not rs.BOF Then
'MAIL TIL KUNDE
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = "CD key"
Mailer.FromAddress = "catchrest@mr.dk"
Mailer.RemoteHost = "mail.mmuser.dk"
Mailer.AddRecipient request("navn"), request("email")
Mailer.Subject = "Vedr. bestilling af cddkey"
tekst = ""
linie = vbCrLf
if request("navn") <> "" then
tekst = tekst & "Kære" & linie & request("navn") & linie & linie
end if
tekst = tekst & "Vi takker ...."& linie & linie & linie
tekst = tekst & "Din kode er: " & (rs.Fields.Item("send_key").Value) & linie & linis
Mailer.BodyText = tekst
Response.Write("MAIL TIL KUNDE<BR>")
Response.Write(tekst2)
if Mailer.SendMail then
'mailen blev sendt
else
'mailen blev ikke sendt
end if
'MAIL TIL L
Set Mailer2 = Server.CreateObject("SMTPsvg.Mailer")
Mailer2.CharSet = 2
Mailer2.FromName = "CD key"
Mailer2.FromAddress = "catchrest@mr.dk"
Mailer2.RemoteHost = "mail.mmuser.dk"
Mailer2.AddRecipient request("navn"), request("email")
Mailer2.Subject = "Vedr. bestilling af cddkey"
tekst2 = ""
linie = vbCrLf
if request("navn") <> "" then
tekst2 = tekst2 & "Kære" & linie & request("navn") & linie & linie
end if
tekst2 = tekst2 & "Vi takker ...."& linie & linie & linie
tekst2 = tekst2 & "Din kode er: " & (rs.Fields.Item("send_key").Value) & linie & linis
Mailer.BodyText = tekst2
Response.Write("MAIL TIL LARS<BR>")
Response.Write(tekst2)
if Mailer.SendMail then
'mailen blev sendt
else
'mailen blev ikke sendt
end if
End If ' end Not rs.EOF Or NOT rs.BOF
%>
<html>
<head>
<title>Let</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="Let.css" rel="stylesheet" type="text/css">
</head>
<body class="D">
<p>Tak for det... </p>
<p>Din Aktiverings Nøgle er
<% If Not rs.EOF Or Not rs.BOF Then %>
<%=(rs.Fields.Item("send_key").Value)%>
<% End If ' end Not rs.EOF Or NOT rs.BOF %>
<% If rs.EOF And rs.BOF Then %>
ikke defineret
<% End If ' end rs.EOF And rs.BOF %>
<br>
<br>
<img src="licensindtast.gif" width="542" height="285"></p>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
