 |
|
|
|
|
|
|
|
|
|
|
 |
|
|||||||||
 |
 |
 |
 |
|
||||||
 |
|
|||||||||
 |
 |
 |
 |
 |
 |
 |
|
|
||
 |
|
|||||||||
<%
'---------- PROCEED REGISTER FORM TO DATABASE
fmode = request.form("mode")
if fmode="add" then
PreName = Request.Form("PreName")
PreAddress = Request.Form("PreAddress")
PreCity = Request.Form("PreCity")
PreState = Request.Form("PreState")
PreZip = Request.Form("PreZip")
PreCountry = Request.Form("PreCountry")
PrePhoneNo = Request.Form("PrePhoneNo")
PreFaxNo = Request.Form("PreFaxNo")
PreEmail = Request.Form("PreEmail")
PreJoinDate = now()
PreProductNo = Request.Form("PreProductNo")
PreDomain = Request.Form("PreDomain")
PrePaymentMethod = Request.Form("PrePaymentMethod")
PreMessage = Request.Form("PreMessage")
preIsOrderDomain = Request.Form("preIsOrderDomain")
set conn=Server.CreateObject("ADODB.Connection")
conn.Open wbcmConnStr
sqlstr = "SELECT * FROM preorder WHERE 1 <> 1 "
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sqlstr, conn, adOpenStatic, adLockPessimistic, adcmdtext
rs.addNew
rs("PreName")=PreName
rs("PreAddress")=PreAddress
rs("PreCity")=PreCity
if not PreState="" then rs("PreState")=PreState
if not PreZip="" then rs("PreZip")=PreZip
rs("PreCountry")=PreCountry
rs("PrePhoneNo")=PrePhoneNo
if not PreFaxNo="" then rs("PreFaxNo")=PreFaxNo
rs("PreEmail")=PreEmail
rs("PreJoinDate")=PreJoinDate
rs("PreProductNo")=PreProductNo
if not PreDomain="" then rs("PreDomain")=PreDomain
rs("PrePaymentMethod")=PrePaymentMethod
if not PreMessage="" then rs("PreMessage")=PreMessage
'if preIsOrderDomain then rs("preIsOrderDomain")=TRUE
rs.Update
rs.Close
str = "SELECT * FROM administration WHERE Id=1"
rs.Open str, conn, adOpenStatic, adLockPessimistic, adcmdtext
emlCsName =rs("emlPre_CsName")
emlCsEmail=rs("emlPre_CsEmail")
emlCsindexMsg=rs("emlPre_indexMsg")
emlSubject=rs("emlPre_Subject")
emlCsBcc=rs("emlPre_CsBcc")
rs.movenext
rs.Close
str = "SELECT * FROM product WHERE ProdNo='" & trim(preProductNo) & "' "
rs.Open str, conn, adOpenStatic, adLockPessimistic, adcmdtext
if not rs.RecordCount=0 then
ProdPriceIDR = rs("ProdPriceIDR")
end if
rs.Close
conn.Close
if preIsOrderDomain then
pricedomain=125000
else
pricedomain=0
end if
totalpayment=pricedomain + ProdPriceIDR
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTNAME", PreName)
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTADDRESS", PreAddress)
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTCITY", PreCity)
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTSTATE", PreState)
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTZIP", PreZip)
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTCOUNTRY", PreCountry)
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTPHONENO", PrePhoneNo)
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTFAXNO", PreFaxNo)
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTDOMAIN", PreDomain)
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTMESSAGE", PreMessage)
emlCsindexMsg = replace(emlCsindexMsg,"@_CUSTEMAIL", PreEmail)
emlCsindexMsg = replace(emlCsindexMsg,"@_PRODPRICEIDR", ProdPriceIDR)
emlCsindexMsg = replace(emlCsindexMsg,"@_PRICEDOMAIN", pricedomain)
emlCsindexMsg = replace(emlCsindexMsg,"@_TOTALPAYMENT", totalpayment)
emlCsindexMsg = replace(emlCsindexMsg,"@_TODAYDT", varTodaysdate)
emlCsindexMsg = replace(emlCsindexMsg,"@_PRODNO", preProductNo)
emlCsindexMsg = replace(emlCsindexMsg,"@_PRODNAME", preProductName)
emlCsindexMsg = replace(emlCsindexMsg,"@_CSNAME", emlCsName)
emlCsindexMsg = replace(emlCsindexMsg,"@_CSEMAIL", emlCsEmail)
sendMail emlCsEmail, preEmail, emlCsBcc, emlSubject, emlCsindexMsg
sendMail "joshua@sunbyte.net", "08161899241@satelindogsm.com", "joshua@houseofglory.com", "SBORDER", preProductNo & " " & PreName & " " & PreCity
end if
'---------- END OF PROCEED REGISTER FORM
if not fmode="add" then %>
<% end if %>
Order<% if not fmode = "add" then %> You have a variety of choices with Sunbyte.Net. You can pay by 3 months, or by year for web hosting service! All accounts are setup without any setup fees. All fields must be completed except the optional field.<% else Response.write "You have been registered, our customer service will be intouch with you shortly" Response.write "
" end if %> |
Web Hosting Domain Name Web Development NetSolutions |
|
||||||||
|
|
|||||||||
|
||||||||||