<% rma_id = request.querystring("rid") dist_id = session("dist_id") rma_num = CheckString(Request.Form("rma_num")) date_entered = Request.Form("date_entered") customer = CheckString(Request.Form("customer")) email = CheckString(Request.Form("email")) address = CheckString(Request.Form("address")) address2 = CheckString(Request.Form("address2")) city = CheckString(Request.Form("city")) state = CheckString(Request.Form("state")) zip = CheckString(Request.Form("zip")) phone = CheckString(Request.Form("phone")) fax = CheckString(Request.Form("fax")) serial_num = CheckString(Request.Form("serial_num")) hours_on_unit = CheckNumber(Request.Form("hours_on_unit")) repair_date = Request.Form("repair_date") return_reason = CheckString(Request.Form("return_reason")) if request.form("submit") = "Submit" then sql = "insert into rma (dist_id) values(" & dist_id & ")" conn.Execute(Sql) sql = "select max(rma_id) from rma where dist_id = " & dist_id set rs = conn.Execute(sql) rma_id = rs(0) blnUpdate = true elseif request.form("submit") = "Update" then blnUpdate = true end if if blnUpdate then sql = "update rma set rma_num = '" & rma_num & "',date_entered = '" & FormatDT(date_entered) & "',customer = '" & customer & "',email = '" & email & "',address = '" & address & "',address2 = '" & address2 & "',city = '" & city & "',state = '" & state & "',zip = '" & zip & "',phone = '" & phone & "',fax = '" & fax & "',serial_num = '" & serial_num & "',hours_on_unit = " & hours_on_unit & ",repair_date = '" & FormatDT(repair_date) & "',return_reason = '" & return_reason & "' where rma_id = " & rma_id 'd sql conn.Execute(sql) sql = "select * from rma_parts where rma_id = " & rma_id & " order by rma_parts_id" set rsX = conn.Execute(Sql) do while not rsX.eof rma_parts_id = rsX("rma_parts_id") qty = CheckNumber(Request.form("qty" & rma_parts_id)) part_num = CheckString(Request.form("part_num" & rma_parts_id)) sql = "update rma_parts set qty = " & qty & ",part_num = '" & part_num & "' where rma_parts_id = " & rma_parts_id conn.Execute(sql) rsX.movenext: loop rma_parts_id = 0 qty = CheckNumber(Request.form("qty" & rma_parts_id)) part_num = CheckString(Request.form("part_num" & rma_parts_id)) if trim(part_num) <> "" then sql = "insert into rma_parts (rma_id,qty,part_num) values(" & rma_id & "," & qty & ",'" & part_num & "')" conn.Execute(sql) end if end if if rma_id = "" then rma_id = 0 sql = "select * from rma where rma_id = " & rma_id & " and dist_id = " & dist_id set rs = conn.Execute(sql) on error resume next if rs.eof then subCap = "Submit" else subCap = "Update" end if %> Lynx Power RMA Print RMA
 
Lynx Power Systems Return Merchandise Authorization
<%if subcap = "Submit" then date_entered = Date(): else date_entered = rs("date_entered")%>
RMA # " size=50> Date Entered:
 
Customer: " size=50> Email: " size=30>
 
Address: " size=70>
 
Address: " size=70>
 
City, St. Zip: " size=40> "> " size=12>
 
Phone: ">
 
Fax: ">
 
<% sql = "select * from rma_parts where rma_id = " & rma_id & " order by rma_parts_id" set rsX = conn.Execute(Sql) do while not rsX.eof %> <% rsX.movenext: loop %>
Part Number: " value="<%=rsX("part_num")%>" size=55> Qty.: " value="<%=rsX("qty")%>" size=5>
Part Number: Qty.:
 
Generator Serial #: " size=40> (Must be a valid Serial Number)
 
Hours on Unit: " size=8>
 
Date of Repair: " size=12>
 
Reason for Return:
 
This form MUST be enclosed with the returned material.