|
#2
Kettyjin19832007-12-06 16:32
|
<%@ LANGUAGE="vbscript" %>
<!--#include virtual ="/Include/Conn.asp"-->
<!--#include virtual ="/Include/Frequent.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" c>
<meta name="GENERATOR" c>
<meta name="ProgId" c>
<title>THANKS FOR YOUR SUPPORT</title>
</head>
<body bgcolor="#FFFFFF">
<p> </p>
<%
owner=session("owner")
if owner = "" then
response.redirect "index.htm"
else
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
c
conn.open = constr
rs.open "SELECT * from mtrack2 where owner = '"&owner&"'and barstatus='wait' and tobe = ''", conn,1,1
Set temprs = Server.CreateObject("ADODB.Recordset")
do while not rs.eof
autoid = rs("autoid")
tobe = "select"&autoid
Set temprs = Server.CreateObject("ADODB.Recordset")
tobe=Trim(Request.Form(tobe))
response.write tobe
temprs.open "update mtrack2 set tobe= '"&tobe&"'where autoid='"&autoid&"'",conn,1,3
MailBody="EXEC xp_sendmail "
MailBody=MailBody&"@recipients = '"&tobe&"',"
MailBody=MailBody & "@copy_recipients='" & owner &"',"
MailBody=MailBody & "@subject='Barcode transfer to you from " & owner & "',"
MailBody=MailBody & "@message='All," & Chr(13)
MailBody=MailBody & "Please be informed that there is some barcode transfered to you,please visit [url=http://hzmot/quick/m-track/transfer.asp]http://hzmot/quick/m-track/transfer.asp[/url] to take some action."& Chr(13)&Chr(13)
MailBody=MailBody & "Thanks for your support.'" & Chr(13) & Chr(13)
call SendMyMail(MailBody)
temprs.close
set temprs = nothing
rs.movenext
loop
rs.close
set rs = nothing
conn.Close
set conn = nothing
end if
'response.redirect "transfer.asp"
%>
</body>
</html>