01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP & SQL Server Tutorial</title>
05.<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
06.<body>
07.
08.<%
09.Dim Conn,strSQL,objRec
10.Set Conn = Server.Createobject("ADODB.Connection")
11.Conn.Open "Driver={SQL Server};Server=localhost;Database=mydatabase;Uname=THAISINTO\administrator;PWD=;"
12.strSQL = ""
13.strSQL = strSQL &"INSERT INTO QUOTATION "
14.strSQL = strSQL &"(quote_no,quote_date,prepare,incharge,currency,customer_ID,add_ID,cust_contact,cust_tel,cust_fax,quote_title,refmodel,model,proj_code_main,rev,remark,delivery2,delivery,payterm,proj_code_sub) "
15.strSQL = strSQL &"VALUES "
16.strSQL = strSQL &"('"&Request.Form("quotation")&"','"&Request.Form("date")&"','"&Request.Form("prepare")&"','"&Request.Form("incharge")&"','"&Request.Form("Currency")&"','"&Request.Form("ddlGeo")&"','"&Request.Form("ddlProvince")&"' "
17.strSQL = strSQL &",'"&Request.Form("Contact")&"','"&Request.Form("Tel")&"', '"&Request.Form("Fax")&"','"&Request.Form("title")&"','"&Request.Form("refmodel")&"','"&Request.Form("model")&"','"&Request.Form("Projcodemain")&"','"&Request.Form("rev")&"','"&Request.Form("remark")&"','"&Request.Form("delivery2")&"', '"&Request.Form("delivery")&"','"&Request.Form("payterm")&"','"&Request.Form("Projcodesub")&"') "
18.
19.IF Request.Form("No") <> "" Then
20.strSQL = strSQL &"INSERT INTO QUOTATION_DETAIL "
21.strSQL = strSQL &"(quote_no,no,part_name,qty,qty_unit,supplier,price,cost_baht,cost_yen,rate,unit_cost_thb,cost_total,price_total,profit,cost_ratio,pr_request,buhinkun,royalty,stm_part_no) "
22.strSQL = strSQL &"VALUES "
23.strSQL = strSQL &"('"&Request.Form("quotation")&"','"&Request.Form("No")&"','"&Request.Form("Description")&"','"&Request.Form("Qty")&"','"&Request.Form("Unit")&"','"&Request.Form("Suplier")&"','"&Request.Form("Quote")&"' "
24.strSQL = strSQL &",'"&Request.Form("CostTHBInput")&"','"&Request.Form("CostYEN")&"', '"&Request.Form("rate")&"','"&Request.Form("CostTHBConvert")&"','"&Request.Form("CostTOTEL")&"','"&Request.Form("QuoteTOTEL")&"','"&Request.Form("Profit")&"','"&Request.Form("Ratio")&"','"&Request.Form("PR.No.")&"','"&Request.Form("Buhinkun")&"', '"&Request.Form("Royalty")&"','"&Request.Form("STMPartNo ")&"') "
25.Set objExec = Conn.Execute(strSQL)
26.End IF
27.
28.IF Request.Form("No2") <> "" Then
29.strSQL = strSQL &"INSERT INTO QUOTATION_DETAIL "
30.strSQL = strSQL &"(quote_no,no,part_name,qty,qty_unit,supplier,price,cost_baht,cost_yen,rate,unit_cost_thb,cost_total,price_total,profit,cost_ratio,pr_request,buhinkun,royalty,stm_part_no) "
31.strSQL = strSQL &"VALUES "
32.strSQL = strSQL &"('"&Request.Form("quotation")&"','"&Request.Form("No2")&"','"&Request.Form("Description2")&"','"&Request.Form("Qty2")&"','"&Request.Form("Unit2")&"','"&Request.Form("Suplier2")&"','"&Request.Form("Quote2")&"' "
33.strSQL = strSQL &",'"&Request.Form("CostTHBInput2")&"','"&Request.Form("CostYEN2")&"', '"&Request.Form("rate2")&"','"&Request.Form("CostTHBConvert2")&"','"&Request.Form("CostTOTEL2")&"','"&Request.Form("QuoteTOTEL2")&"','"&Request.Form("Profit2")&"','"&Request.Form("Ratio2")&"','"&Request.Form("PR.No.2")&"','"&Request.Form("Buhinkun2")&"', '"&Request.Form("Royalty2")&"','"&Request.Form("STMPartNo2")&"') "
34.Set objExec = Conn.Execute(strSQL)
35.Next
36.End IF
37.
38.
39.
40.Set objRec = Conn.Execute(strSQL)
41.If Err.Number = 0 Then
42. response.redirect("viewallquotation.asp")
43.Else
44. Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
45.End If
46.Conn.Close()
47.Set objRec = Nothing
48.Set Conn = Nothing
49.%>
50.</body>
51.</html>
