pagesbydave
Starting Member
USA
1 Posts |
Posted - June 26 2003 : 16:14:45
|
I had a check submit form that was working under 3.5 and after I upgraded and have tried to add it to a new site using 4.5 it bombs
does anyone see where its bombing? I will put all the code in as it was when working
In shopcheckout.asp
' Put our credit card and non credit card form '************************************************* Sub DisplayForm If SError<>"" then Response.Write(getconfig("xfont") & "<br>" & sError & "</font>") end if PerformGateway Response.Write("<b>" & getconfig("xfont") & LangCheckout01 & "</font></b><br>") If AllowCreditCards="Yes" or AllowOtherPayment="Yes" then Response.Write("<form name=form1 method=Post action='" & getsess("currenturl") &"'>") Response.Write(tabledef) AddCreditCard AddOtherPayment Response.Write(tabledefend) shopbuttonreset getconfig("xbuttonreset"),LangCommonReset,"" Response.write " " shopbutton Getconfig("xbuttoncontinue"),LangCommonContinue,"Action" response.write "<br><br>" end if shopbutton Getconfig("xbuttoncancel"),LangCommonCancelorder,"cancel" Response.Write("</form>") Response.Write("<b><a href=""shopcheckform.asp""> CLICK HERE TO USE ONLINE CHECK FORM. </a><b><br><br>")
End Sub
In shopcheckform.asp
<!-- #include file="shop$db.asp" --> <!-- #include file="shophash.asp" --> <!-- #include file="shopcartformat.asp" --> <% '************************************************************************** ' we are now secure and in different session to need to reget info' ' unless the user has cancelled, in that case we delete order and items ' creates a check form that the user can use to process online checks ' or to just verify the order details before proceeeding ' Dave theGraet '******************************************************************* ShopPageHeader ' Normal page header OpenOrderDB dbc ' Open the database GetCustomerSessionData ' make sure we have all session data in local variables CartFormat "NOREMOVE" ' common format cart routine
dim oid strOid = GetSess("orderid") dim dbc dim rstemp strCustomerID = GetSess("CustomerID") dim AccountNum dim TransitNum dim BankName dim BranchNum dim CheckNum dim CheckNum2 dim EMail dim State dim Address dim City dim sAction oid = GetSess("oid")
' SetSess "CurrentURL","ShopCheckform.asp" ' SetSess "FollowonURL","ShopThanks.asp" ' SetSess "PaymentURL",paymentURL
GetOrderInfo ' get orderid sError=GetSess("PaymentError") ' on return for authorization there may be an error SetSess "PaymentError","" ' reset If xDisplayPrices<>"Yes" then response.redirect GetSess("followonurl") ' go to shopthanks end if
sAction=Request.form("Action") If sAction = "" Then ' ShopPageHeader ' put out normal header ' DisplayForm() ' credit card form ' ShopPagetrailer ' trailer Else GetFormFields ValidateData if sError = "" Then UpdateCreditInfo ' add payment to daat base if paymentURL<>"" then ' if there is an authorization response.redirect PaymentURL & "?oid=" & oid else response.redirect GetSess("followonurl") ' go to shopthanks end if end if ShopPageHeader DisplayForm ' ShopPageTrailer end if
Sub GetorderInfo ' Either comes on querystring or on rentry is in session variables if oid="" then oid=GetSess("oid") else SetSess "oid", oid end if If oid="" then Response.Redirect "shoperror.asp?msg=" & Server.URLEncode (LangCheckoutProcessed) end if SetSess "oid", oid ' debug only
end sub
sAction=Request.form("Action") If sAction = "" Then ' DisplayForm() ' credit card form ' ShopPagetrailer ' trailer Else GetFormFields ValidateData if sError = "" Then SaveThisOrder ' add payment to daat base if paymentURL<>"" then ' if there is an authorization response.redirect PaymentURL & "?oid=" & oid else response.redirect GetSess("followonurl") ' go to shopthanks end if end if ' DisplayForm ' ShopPageTrailer end if Sub SaveThisOrder ShopAddOrder ' add order to database oid=GetSess( "orderId") if Getsess("ordertotal")= 0 then updatepaymentinfo LangpaymentNone ' response.redirect "shopthanks.asp" end if end sub
' add info to order Sub ShopAddOrder dim CVN, newcardno Dim dbc OpenOrderDB dbc Dim sqltemp sqltemp="select * from orders where orderid=" & getsess("oid") Set rstemp = Server.CreateObject("ADODB.Recordset") rstemp.open sqltemp, dbc, 1, 3 rstemp.update end sub
%>
<form name="form" method="post" action="send_con.asp"> <p align="center"><font color="#000000"><br><B> Replace the following text fields with the corresponding values <br> EXACTLY as they are on your check.</b><br></font> <div align="center"> <table cellpadding=2 bgcolor="0000ff"><tr><td align="center" valign="middle"> <table width="600" border="0" cellspacing="0" cellpadding="5" align="center" bgcolor="00ccff"> <tr> <td colspan="3"> <div align="left"> <input type="text" name="Name" value="<%=strFirstName%> <%=strLastName%>" size="30"> </div> </td> <td rowspan="3" width="199" valign="top" align="left"> <div align="left"><b><font color="#000000"><%=strEmail%><br> Affinity Order ID #<%=strOid%></font></b> </div> <input type="hidden" value="<%=strEmail%>" name="Email" >
</td> <td width="8" height="42" rowspan="2"> </td> <td width="98" height="42" rowspan="2"> <input type="text" name="CheckNum" size="10" maxlength="10" value="Check #"> </td> </tr> <tr> <td colspan="3"> <input type="text" name="address" value="<%=strAddress%>" size="30"> </td> </tr> <tr> <td width="60"> <input type="text" name="city" size="10" value="<%=strCity%>"> </td> <td width="35"> <input type="text" name="state" size="5" value="<%=strState%>"> </td> <td width="140"> <input type="text" name="zip" size="7" value="<%=strPostCode%>"> </td> <td width="8"> </td> <td width="98"> <input type="text" name="branch" size="15" value="Bank Branch Num"> </td> </tr> <tr> <td height="51" width="60"> <div align="right"><font size="-1" color="#000000">Pay to the Order of:</font></div> </td> <td colspan="3" height="51"> <div align="left"><b><u><font color="#000000">___Affinity Inc.____</font></U></b></div> </td> <td height="51" width="8"> <div align="right"><b><font color="#000000">$</font></b></div> </td> <td height="51" width="98"> <input type="text" name="amount" size="10" value="<%=Round(Getsess("OrderTotal"),2)%>"> </td> </tr> <tr> <td colspan="3"> <div align="center"> <input type="text" name="BankName" value="Bank Name" size="25"> </div> </td> <td colspan="3">
</td> </tr> <tr> <td width="60" align="right"> <div align="right"><b><font color="#000000">Memo:</font></b></div> </td> <td colspan="2" align="left"> <div align="left"> <input type="text" name="memo" value=" " size="25"> <input type="hidden" name="CustomerID" value="<%=strCustomerId%>"> <input type="hidden" name="CartInfo" value="<%=LangCommonViewCart%>"> <input type="hidden" name="OrderID" value="<%=Oid%>"> </div> </td> <td colspan="3">
</td> </tr> <tr> <td colspan="3"> <div align="center"><font size="-2" color="#000000"> <b>|</b></font><b><font size="+1" color="#000000">:</font></b> <input type="text" name="TransitNum" value="9 Digit Routing Num" size="15"> <font size="-2" color="#000000"><b>|</b></font><b><font size="+1" color="#000000">:</font></b> </div> </td> <td colspan="2" align="left"> <input type="text" name="AccountNum" value="Account Number" size="12"> <b><font size="-2" color="#000000">||* </font></b> </div> </td> <td align="left"> <input type="text" name="checkNum2" size="8" value="Check #"> </td> </tr> </table> </td></tr></table> </div><br> <div align="center"> <input type="submit" name="Submit" value="Submit Check"> <input type="reset" name="Submit2" value="Reset Check"> </div> </form>
<%
ShopPageTrailer ' Normal Shop page trailer ShopCloseDatabase dbc ' Close the database %>
IN send_con.asp
<%option explicit%> <!-- #include file="shop$db.asp" --> <!-- #include file="shophash.asp" --> <!-- #include file="shopcartformat.asp" --> <!-- #include file="shopgiftdb.asp" --> <!-- #include file="shop$language2.asp" --> <% Dim oid strCustomerID = GetSess("CustomerID") Oid = GetSess("orderid") strAccountNum = Request.Form("AccountNum") strTransitNum = Request.Form("TransitNum") strBankName = Request.Form("BankName") strBranchNum = Request.Form("branch") strCheckNum = Request.Form("CheckNum") strCheckNum2 = Request.Form("CheckNum2") strEMail = Request.Form("email") strState = Request.Form("state") strPostcode = Request.Form("zip") strAddress = Request.Form("address") strCity = Request.Form("city")
const AllowReview="Yes" ' allow customer to review order const IncludeOidonLink="no" ' some payment systems do not allow oid on their URL Dim dbc Dim ssl dim slash, action, tmpstr, rc
ssl=xssl if ssl<>"" then slash=right(ssl,1) if slash="/" or slash="\" then else ssl=ssl & "/" end if end if if GetSess("cartItem")=0 or GetSess("cartitem")="" then Response.Redirect "shoperror.asp?msg=" & Server.URLEncode (LangError01) end if if GetSess("AffID")="" and xaffiliateUseCookies="Yes" then tmpStr=Request.Cookies("affid") If tmpStr<>"" then SetSess "AffID", tmpStr end if end if action = request("Cancel") If action<>"" then ShopCancelOrder Response.Redirect "shoperror.asp?msg=" & Server.URLEncode (LangCheckoutCancelled) end if action = ucase(left(request.form("action"),6)) ' no action so display final form in this session SetSess "CurrentURL","send_con.asp" if Action="" then ' ShopPageHeader Response.Write " " ' ShopPageTrailer else SaveThisOrder end if
Sub SaveThisOrder ShopAddOrder ' add order to database oid=GetSess( "orderId") ' HandleGiftPurchase ' HandleGiftCertificate ' if Getsess("ordertotal")= 0 then ' updatepaymentinfo LangpaymentNone ' response.redirect "shopthanks.asp" ' end if ' If IncludeOidOnLink="Yes" then ' Response.Redirect ssl & xcheckout & "?oid=" & oid ' else ' Response.Redirect ssl & xcheckout ' end if end sub
dim Mail set Mail = server.createobject("Persits.Mailsender")
dim Content
Content = "Date : " & Now() & vbcrlf & "IP Address : " & Request.ServerVariables("REMOTE_ADDR") & vbcrlf & "Name : " & Request.form("Name") & vbcrlf & "Order ID : " & oid & vbcrlf & "Email : " & strEmail & vbcrlf & "Memo : " & Request.form("memo") & vbcrlf & "Amount : $" & Request.form("amount") & vbcrlf & vbcrlf & "Address : " & strAddress & vbcrlf & "City : " & strCity & vbcrlf & " State: " & strState & vbcrlf & "Zip : " & strPostcode & vbcrlf & vbcrlf & "Check Number : " & strCheckNum & vbcrlf & "CheckNum2 : " & strCheckNum2 & vbcrlf & "Branch Number : " & strBranchNum & vbcrlf & "Bank Name : " & strBankName & vbcrlf & "Transit Number : " & strTransitNum & vbcrlf & "Account Number : " & strAccountNum & vbcrlf & vbcrlf & vbcrlf & " Customer ID : " & strCustomerID
Mail.Host = "mail.teche.net" Mail.From = request.form("Email") Mail.FromName = request.form("Name") Mail.AddAddress "[email protected]" Mail.Subject = "Online Check Payment " Mail.Body = Content
On Error Resume Next Mail.Send
Sub UpdatepaymentInfo () Dim rstemp OpenOrderDB dbc Dim sqltemp sqltemp="select * from orders where orderid=" & getsess("oid") Set rstemp = Server.CreateObject("ADODB.Recordset") rstemp.open sqltemp, dbc, 1, 3 ' rstemp("ocardtype")=paymenttype rstemp("ocardtype")=check
rstemp.update rstemp.close set rstemp=nothing ShopcloseDatabase dbc end sub
If Err < 0 then response.write("An error occured: " & Err.Description) Else ' response.redirect("shopthanks.asp") ShopPageHeader Response.Write "<b> Thank You , </b><br> Your check payment and order have been submitted. <br> Your order will be shipped when payment is approved." ShopPageTrailer End IF
%>
the check used to work but know it goes stratight from the shopcheckout page to the thanks page ?????????????????????
any help would be great and anyone who would like to use it after it is working is welcome thanks Dave
|
|