<%
Function Display()
Response.Write("<form name='frmCheckAll' method='post'
action='SourcingSupplier.asp?pro=" &ProjectName& "&email=" &Email&
"&rt=" &RequestTime& "'>")
Response.write("<table width='100%' cellspacing='2' cellpadding='0'>")
Response.write("<tr>")
response.write("<td class='header'><font class='recHeader'>No.</font></
td>")
response.write("<td class='header'><font class='recHeader'>CPN</font></
td>")
response.write("<td class='header'><font
class='recHeader'>Description</font></td>")
response.write("<td class='header'><font class='recHeader'>Qty Needed</
font></td>")
response.write("<td class='header'><font
class='recHeader'>Manufacturer</font></td>")
response.write("<td class='header'><font class='recHeader'>Supplier</
font></td>")
response.write("<td class='header'><font class='recHeader'>Group</
font></td>")
response.write("<td class='header'><font class='recHeader'>Comment</
font></td>")
If checkAll="checked" Then
response.write("<td class='header'><input type='checkbox'
value='checked' name='chkAll'
onClick='javascript:document.frmCheckAll.submit()'checked></td>")
Else
response.write("<td class='header'><input type='checkbox'
value='checked' name='chkAll'
onClick='javascript:document.frmCheckAll.submit()'></td>")
End If
Response.write("</tr>")
Response.Write("</form>")
intRecNo = 1
Response.Write("<form name='frmSend' method='post'
action='sendSupplier.asp'>")
count = 1
qryReport = "SELECT DISTINCT ManuID, CPN, PartDesc, ReqQty FROM
escalation_store WHERE ProjectName = '" &ProjectName& "' AND Email =
'" &Email& "' AND RequestTime = '" &RequestTime& "' Order By CPN"
qrySupplier = "SELECT SQL.ManuID, SQL.CPN, SQL.PartDesc, SQL.ReqQty,
linecard.SupplierName, linecard.SupplierGroup, linecard.SupplierEmail
FROM (" &qryReport& ") AS SQL LEFT JOIN linecard ON SQL.ManuID =
linecard.ManuID WHERE linecard.SupplierGroup LIKE '01%' OR
linecard.SupplierGroup LIKE '02%' OR linecard.SupplierGroup LIKE '03%'
Order By SQL.CPN, SQL.ManuID"
Set rsReport = conn.Execute(qrySupplier)
If Not rsReport.EOF Then
While Not rsReport.EOF
If rsReport.Fields("CPN") = PrevPart Then
Call ReportB()
count = count + 1
Else
If color = "#FFFFDF" then
color = "#DBFCFC"
else
color = "#FFFFDF"
End If
PrevPart = rsReport.Fields("CPN")
Call ReportA()
intRecNo = intRecNo + 1
count = count + 1
End If
rsReport.MoveNext
Wend
End IF
'Store count for send...
Response.write("<input type='hidden' name='hiddenCount' value='"
&count& "'>")
Response.write("<input type='hidden' name='hiddenProject' value='"
&ProjectName& "'>")
Response.write("<input type='hidden' name='hiddenEmail' value='"
&Email& "'>")
Response.write("<input type='hidden' name='hiddenRequestTime' value='"
&RequestTime& "'>")
response.write("</table>")
Response.Write("</form>")
End Function
%>
<%
Function ReportA()
If rsReport.Fields("SupplierGroup") = "02 - PREFERRED DISTY" Then
cssClass = "recHighlight2"
Else
cssClass = "rec"
End If
Response.write("<tr bgcolor='" &color& "'>")
response.write("<td><font class='rec'>" &intRecNo& "</font></td>")
response.write("<td><font class='rec'>" &rsReport.Fields("CPN")& "</
font></td>")
response.write("<td><font class='rec'>" &rsReport.Fields("PartDesc")&
"</font></td>")
response.write("<td><font class='rec'>" &rsReport.Fields("ReqQty")& "</
font></td>")
response.write("<td><font class='" &cssClass& "'>"
&rsReport.Fields("ManuID")& "</font></td>")
response.write("<td><font class='" &cssClass& "'>"
&rsReport.Fields("SupplierName")& "</font></td>")
response.write("<td><font class='" &cssClass& "'>"
&rsReport.Fields("SupplierGroup")& "</font></td>")
response.write("<td><a href='AddComments.asp?pro=" &ProjectName&
"&email=" &email& "&rt=" &RequestTime& "&sup="
&rsReport.Fields("SupplierName")& "&cpn=" &rsReport.Fields("CPN")&
"'><font class='PageLink'>Add</font></a></td>")
If CheckAll = "checked" Then
response.write("<td><input type='checkbox' name='chkSupplier" &count&
"' checked value='" &rsReport.Fields("CPN")& "/"
&rsReport.Fields("ManuID")& "/" &rsReport.Fields("SupplierName")& "/"
&rsReport.Fields("ReqQty")& "/" &rsReport.Fields("SupplierEmail")&
"'></td>")
Else
response.write("<td><input type='checkbox' name='chkSupplier" &count&
"' value='" &rsReport.Fields("CPN")& "/" &rsReport.Fields("ManuID")&
"/" &rsReport.Fields("SupplierName")& "/" &rsReport.Fields("ReqQty")&
"/" &rsReport.Fields("SupplierEmail")& "'></td>")
End If
Response.write("</tr>")
End Function
%>
<%
Function ReportB()
If rsReport.Fields("SupplierGroup") = "02 - PREFERRED DISTY" Then
cssClass = "recHighlight2"
Else
cssClass = "rec"
End If
Response.write("<tr bgcolor='" &color& "'>")
response.write("<td></td>")
response.write("<td></td>")
response.write("<td></td>")
response.write("<td></td>")
response.write("<td><font class='" &cssClass& "'>"
&rsReport.Fields("ManuID")& "</font></td>")
response.write("<td><font class='" &cssClass& "'>"
&rsReport.Fields("SupplierName")& "</font></td>")
response.write("<td><font class='" &cssClass& "'>"
&rsReport.Fields("SupplierGroup")& "</font></td>")
response.write("<td><a href='AddComments.asp?pro=" &ProjectName&
"&email=" &email& "&rt=" &RequestTime& "&sup="
&rsReport.Fields("SupplierName")& "&cpn=" &rsReport.Fields("CPN")&
"'><font class='PageLink'>Add</font></a></td>")
If checkAll="checked" Then
response.write("<td><input type='checkbox' name='chkSupplier" &count&
"' checked value='" &rsReport.Fields("CPN")& "/"
&rsReport.Fields("ManuID")& "/" &rsReport.Fields("SupplierName")& "/"
&rsReport.Fields("ReqQty")& "/" &rsReport.Fields("SupplierEmail")&
"/" &rsReport.Fields("SupplierEmail")& "'></td>")
else
response.write("<td><input type='checkbox' name='chkSupplier" &count&
"' value='" &rsReport.Fields("CPN")& "/" &rsReport.Fields("ManuID")&
"/" &rsReport.Fields("SupplierName")& "/" &rsReport.Fields("ReqQty")&
"/" &rsReport.Fields("SupplierEmail")& "/"
&rsReport.Fields("SupplierEmail")& "'></td>")
end if
Response.write("</tr>")
End Function
%>
SendSupplier page
<%
Function Save()
For i = 1 To (count-1)
strInput = Request.Form("chkSupplier" &i)
If strInput <> "" Then
strValues = split(strInput, "/")
qryGetSupType = "SELECT SupplierType FROM linecard WHERE
SupplierName = '" &strValues(2)& "'"
Set rsGetSupType = conn.Execute(qryGetSupType)
If Not rsGetSupType.EOF Then
SupplierType = rsGetSupType.Fields("SupplierType")
Else
SupplierType = ""
End If
qryInsert = "INSERT INTO supplier_feedback (ProjectName, Email,
RequestTime, CPN, ManuID, SupplierName, ReqQty, SupplierEmail,
SupplierType) VALUES ('" &ProjectName& "','" &Email& "','"
&RequestTime& "','" &strValues(0)& "','" &strValues(1)& "','"
&strValues(2)& "','" &strValues(3)& "', '" &SupplierType& "')"
Set rsInsert = conn.Execute(qryInsert)
End If
Next
qryGetCode = "SELECT DISTINCT SupplierName FROM supplier_feedback
WHERE ProjectName='" &ProjectName& "' AND Email = '" &Email& "' AND
RequestTime= '" &RequestTime& "'"
Set rsGetCode = conn.Execute(qryGetCode)
If Not rsGetCode.EOF Then
While Not rsGetCode.EOF
vCode = Int(Rnd * 999999)+1
qrySetCode = "UPDATE supplier_feedback SET vCode='" &vCode& "' WHERE
ProjectName='" &ProjectName& "' AND Email = '" &Email& "' AND
RequestTime= '" &RequestTime& "' AND SupplierName='"
&rsGetCode.Fields("SupplierName")& "'"
Set rsSetCode = conn.Execute(qrySetCode)
rsGetCode.MoveNext
vCode = 0
Wend
End If
Response.Redirect("SendEmailSupplier.asp?pro=" &ProjectName& "&email="
&Email& "&rt=" &RequestTime)
End Function
%>
SendEmailSupplier
<%
Function Send()
qryGetEmail = "SELECT DISTINCT SupplierEmail, SupplierName, vCode,
Comments FROM supplier_feedback WHERE ProjectName='" &pro& "' AND
Email='" &email& "' AND RequestTime='" &rt& "'"
Set rsGetEmail = conn.Execute(qryGetEmail)
If Not rsGetEmail.EOF Then
While Not rsGetEmail.EOF
url = "http://172.24.163.243/MSS/Feedback/Feedback.asp?pro=" &pro&
"&email=" &email& "&rt=" &rt& "&sup=" &sup&
&rsGetEmail.Fields("SupplierName")& "&vCode="
&rsGetEmail.Fields("vCode")& "&Comments="
&rsGetEmail.Fields("Comments")
url = Replace(url, " ", "%20")
Set myMail=CreateObject("CDO.Message")
myMail.Subject="RFQ"
myMail.From=email
line 47: myMail.To=rsGetEmail.Fields("SupplierEmail")
myMail.TextBody="Dear "
&Left(rsGetEmail.Fields("SupplierName"),Len(rsGetEmail.Fields("SupplierName"))-4)&
"," &Chr(10)&Chr(10)& "Please access the URL below to feedback your
quotation on the listed parts." &Chr(10)&Chr(10)& url
&Chr(10)&Chr(10)& "(This is a computer generated message.)"
&Chr(10)&Chr(10)& "Thanks & Regards," &Chr(10)& "Plexus Manufacturing"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/
configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/
configuration/smtpserver")="206.209.242.146"
'Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/
configuration/smtpserverport") =25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=Nothing
rsGetEmail.MoveNext
Wend
End If
End Function
%>