<%@ 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 %>

 

Shree Industries and ServicesOrder 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