<%@ Language=VBScript %> <% Set discConn=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.RecordSet") connpath = "DBQ=" & server.mappath("orderdetail.mdb") discConn.open "DRIVER={Microsoft Access Driver (*.mdb)};" & connpath %> <%sql="select order_id from orderdetails where id=(select max(id) from orderdetails)" set rs=discConn.execute(sql) dt=Date dt=Formatdatetime(dt,vblongdate) str=rs("order_id") a=instr(4,str,"/") db1=mid(str,4,(a-4)) val=cint(db1) val=val+1 str1="ord" & "00" & val & "/" &dt %> <% noofkeys=Request.Form("totalamt") total2=Request.Form("total") gtot=Request.Form("gtotal") stax=Request.Form("salestax") nam=request.form("name") addr=Request.Form("address") email=Request.Form("email") phone=Request.Form("phone") freight=Request.Form("freight") ctr=0 messg="" if email <>"" then emailcheck end if private sub emailcheck() tctr=0 for i=1 to len(email) tmp=mid(email,i,1) if tmp="@" then tctr=tctr+1 next if tctr <> 1 then ctr=1 messg=" Email format is incorrect.
" + messg exit sub end if posn=Instr(email,"@") if posn < 3 then ctr=1 messg=" Email format is incorrect.
" + messg exit sub else test=Instr(posn,email,".") end if if test <= 0 then ctr=1 messg=" Email format is incorrect.
" + messg exit sub end if newlth=len(email)-test posn1=Instr(test+1,email,".") if (newlth=3 or newlth=2 or (newlth >= 4 and posn1 > 0)) then messg=messg & "" else ctr=1 messg= " Email format is incorrect.
" + messg exit sub end if end sub if ctr=1 then Response.Write (messg) else sql="insert into orderdetails(order_id,dateoforder,totalprice,granttotal,totalkeys,salestax,name,address,email,phone,freight) values('"& str1 &"','"& date &"','"& total2 &"','"& gtot &"','"& noofkeys &"','"& stax &"','"& nam &"','"& addr &"','"& email &"','"& phone &"','"& freight &"')" set rs=discConn.execute(sql) end if %>

Order Form

To open the Order form, you will require Adobe Reader installed on your computer. To download Adobe Reader click here

You may download the Order Form from here:

[Machines] [Order Form] [Opportunities] [Contact Us] [Feedback] [FAQ's]

HOME