<%
Const DB_Type = "Access"
Dim DB_CONNECTIONSTRING
Select Case DB_Type
Case "Access"
'DB_CONNNECTIONSTRING = "db=i:\db\ovation-fdbk.mdb;Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
db.Open "ovation-wks"
Case Else
Response.Write "DB_TYPE Must Be Either Access or SQL!" & "
" & vbCRLf
Response.End
End Select
SQL1="INSERT INTO data_wks (FE_nam,Hosp_Name,Install_Date,Coil_Numbers,Tun_Time,Scan_Time,Others_Time,CTL_Comp,CTL_T1,CTL_T2,CTL_T3,CTL_L1,CTL_L2,CTL_L3,Knee_Large_C,Knee_Large_5,Knee_Large_7,Shoulder_C,Shoulder_2,Shoulder_4,Wrist_C,Wrist_1,Wrist_2,Wrist_3,Breast_R_C,Breast_R_1,Breast_R_2,Breast_L_C,Breast_L_1,Breast_L_2,Comentario) VALUES(" &_
"'" & Request.Form("txtFE_nam") + "', " &_
"'" & Request.Form("txtHosp_name") + "', " &_
"'" & Request.Form("txtInstall_Date") + "', " &_
"'" & Request.Form("txtCoil_Numbers") & "', " &_
"'" & Request.Form("txtTun_Time") & "', " &_
"'" & Request.Form("txtScan_Time") & "', " &_
"'" & Request.Form("txtOthers_Time") & "', " &_
"'" & Request.Form("txtCTL_Comp") & "', " &_
"'" & Request.Form("txtCTL_T1") & "', " &_
"'" & Request.Form("txtCTL_T2") & "', " &_
"'" & Request.Form("txtCTL_T3") & "', " &_
"'" & Request.Form("txtCTL_L1") & "', " &_
"'" & Request.Form("txtCTL_L2") & "', " &_
"'" & Request.Form("txtCTL_L3") & "', " &_
"'" & Request.Form("txtKnee_Large_C") & "', " &_
"'" & Request.Form("txtKnee_Large_5") & "', " &_
"'" & Request.Form("txtKnee_Large_7") & "', " &_
"'" & Request.Form("txtShoulder_C") & "', " &_
"'" & Request.Form("txtShoulder_2") & "', " &_
"'" & Request.Form("txtShoulder_4") & "', " &_
"'" & Request.Form("txtWrist_C") & "', " &_
"'" & Request.Form("txtWrist_1") & "', " &_
"'" & Request.Form("txtWrist_2") & "', " &_
"'" & Request.Form("txtWrist_3") & "', " &_
"'" & Request.Form("txtBreast_R_C") & "', " &_
"'" & Request.Form("txtBreast_R_1") & "', " &_
"'" & Request.Form("txtBreast_R_2") & "', " &_
"'" & Request.Form("txtBreast_L_C") & "', " &_
"'" & Request.Form("txtBreast_L_1") & "', " &_
"'" & Request.Form("txtBreast_L_2") & "', " &_
"'" & Request.Form("txtComentario") &"')"
db.Execute(SQL1)
Response.Write "Thank you. New data was updated.
"
%>
Go to Hino MR Service Documentation Page.
<%
Response.Write "Or, close this window:"
%>
<%
cMessage = ""
cMessage =cMessage & ""
cMessage =cMessage & "