Sorry, got ahead of myself. Forgot to add the recordset. Updated code
as follows:
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../../Connections/connReclaim.asp" -->
<%
Dim rsT__varR
rsT__varR = "1"
If (Request.QueryString("hdnrma") <> "") Then
rsT__varR = Request.QueryString("hdnrma")
End If
%>
<%
Dim rsT
Dim rsT_numRows
Set rsT = Server.CreateObject("ADODB.Recordset")
rsT.ActiveConnection = MM_connReclaim_STRING
rsT.Source = "select idlot, idrma, partdesc, partnum, phmodel, dockqty
from dbo.lotinfo where idrma = '" + Replace(rsT__varR, "'", "''") +
"'"
rsT.CursorType = 0
rsT.CursorLocation = 2
rsT.LockType = 1
rsT.Open()
rsT_numRows = 0
%>
<%
' Create the JMail message Object
set msg = Server.CreateObject( "JMail.Message" )
' Mail server requires sender and receiver data first
' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.From = "(e-mail address removed)"
msg.AddRecipient Request.Form("hdnemail")
' Get the form data
name = Request.Form("hdnname")
subject = "Repair Resource :: Auto-Receipt for RMA# " &
Request.Form("hdnrma")
' Enter the sender data
msg.FromName = "Repair Resource, Inc."
' Setup the correct mail sending user data
msg.MailServerUserName = "(e-mail address removed)"
msg.MailServerPassword = "sj5xvrnn"
' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true
' The subject of the message
msg.Subject = subject
' And the body
msg.body = "The contents of RMA#:" & Request.Form("hdnrma") & "have
been received into our system to be processed. Below are the results:"
$ vbCrlf & vbCrlF
AppendText
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rst_numRows = rst_numRows + Repeat1__numRows
%>
<html xmlns="
http://www.w3.org/1999/xhtml">
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"
/>
<meta http-equiv="refresh" content="5;URL=reclaimapp.asp">
<link href="../../style/style.css" rel="stylesheet" type="text/css" />
<link href="../../style/newRepairStyle.css" rel="stylesheet"
type="text/css" />
</head>
<body>
<form name="frmemail" id="frmemail" method="post" action="">
<font color="#000000" face="Verdana, Arial, Helvetica,
sans-serif"><font size="2">
<%
' Now send the message, using the indicated mailserver
if not msg.Send("mail.repairresource.com" )then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Your email confirmation message was sent
succesfully....Thank You!"
end if
' And we're done! the message has been sent.
%>
</font></font>
</form>
<p> </p>
</body>
</html>
<%
rsT.Close()
Set rsT = Nothing
%>
