<% if request.form("posted")="1" then if htmlemails=true then emlNl = "
" else emlNl=vbCrLf Set rs = Server.CreateObject("ADODB.RecordSet") Set cnn=Server.CreateObject("ADODB.Connection") cnn.open sDSN sSQL="SELECT adminEmail,adminStoreURL,emailObject FROM admin WHERE adminID=1" rs.Open sSQL,cnn,0,1 emailAddr = rs("adminEmail") adminStoreURL = rs("adminStoreURL") if (left(LCase(adminStoreURL),7) <> "http://") AND (left(LCase(adminStoreURL),8) <> "https://") then adminStoreURL = "http://" & adminStoreURL end if if Right(adminStoreURL,1) <> "/" then adminStoreURL = adminStoreURL & "/" emailObject = rs("emailObject") rs.Close seBody = xxEFYF1 & request.form("yourname") & " ("&request.form("youremail")&")" & xxEFYF2 if Trim(request.form("yourcomments"))<>"" then seBody = seBody & xxEFYF3 & emlNl seBody = seBody & Trim(request.form("yourcomments")) & emlNl else seBody = seBody & "." & emlNl end if seBody = seBody & emlNl & adminStoreURL if Trim(Request.Form("id")) <> "" then seBody = seBody & "proddetail.asp?prod=" & Trim(Request.Form("id")) seBody = seBody & emlNl call DoSendEmailEO(request.form("friendsemail"),emailAddr,request.form("youremail"),request.form("yourname") & xxEFRec,seBody,emailObject) %>
<%=xxEFThk%>
<%=xxClkClo%>
<% else %>
">
<%=xxEFBlr%>
*
<%=xxEFNam%>:
*
<%=xxEFEm%>:
*
<%=xxEFFEm%>:
<%=xxEFCmt%>:
<% end if %>