%@ Language=VBScript %>
<%
'Check for User Authentication
if session("Authenticated") = 0 then
Response.redirect("login.asp")
end if
set mil_quoteDB = Server.CreateObject("ADODB.Connection")
mil_quoteDB.Open = "Mil_Quotes"
'User Record
Upage = "rfq_mil_foreign_form.htm"
Udate = formatDateTime(date)
Utime = formatDateTime(Now, 3)
Uid = session("UserId")
id = Request.QueryString("id")
sqlSelectHead = "select * from QuoteHeader where [QuoteHeadid] = "&id&""
set rSelect = mil_quoteDB.Execute(sqlSelectHead)
PartNum = rSelect("PartNumber")
if not rSelect("Quantity") = "" then
Quantity = rSelect("Quantity")
else
Quantity = 0
end if
sqlUInsert = "insert into Usage ([Page], [Userid], [UserDate], [UserTime], [PartNumber], [Quantity]) "
sqlUInsert = sqlUInsert & "values('"&Upage&"', "&Uid&", #"&Udate&"#, #"&Utime&"#, '"&PartNum&"', '"&Quantity&"') "
set rUInsert = mil_quoteDB.Execute(sqlUInsert)
%>
Domestic Military Request for Quote
 |
 |
 |
|
|
|
|
|
Foreign Military Request for
Quote for Spares
If you are requesting a quote for a
spare that will go to a U.S. Military organization, please use the
domestic military RFQ form.
(*required).
|
|
|
|
<%
rSelect.Close
set rSelect = Nothing
mil_quoteDB.Close
set mil_quoteDB = Nothing
%>