troubleshooting Question

Form won't update when a date-field is empty...

Avatar of ullenulle
ullenulleFlag for United States of America asked on
MySQL ServerASP
22 Comments1 Solution425 ViewsLast Modified:
Hi there.

I have a problem that is making me insane... I have a page with check-boxes, text-fields and date-fields. I usually create the basics in Dreamweaver CS3 first and edit the SQL-codes afterwards, because I write one session to two tables (logging). Anyway... I attached my entire page here. Please tell me whyyyyyyyyyyy I get this error:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[MySQL][ODBC 5.1 Driver][mysqld-5.0.51b-community-nt]Incorrect date value: '' for column 'mmm_behandling_hyperterm_tnfalfa_dato' at row 1
/melanom/melanom_onstudy2.asp, line 139

 when I either update an existing record or create a new record AND in either case the four date-fields has no value???? It works fine with the normal Dreamweaver-codes, and it used to work on a lot of other forms I made with the modified SQL-codes. But somehow I must have made something wrong. I just can't figure out what...
Please HEEEEEEELP!!!!
I use classic asp and MySQL.

Best regards

Ullenulle
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="top_secret.asp" -->
<!--#include file="IsLoggedIn.asp"-->
<%Response.Cookies("melanomcookie").Expires = DateAdd("n", +60, FormatDateTime(Now,vbGeneralDate))%>
<%username=Request.Cookies("melanomcookie")("User")%>
<%userlevel=Request.Cookies("melanomcookie")("Usertype")%>
<%usercenter=Request.Cookies("melanomcookie")("Usercenter")%>
<SCRIPT LANGUAGE="JavaScript">
<!--
top.window.moveTo(0,0);
if (document.all) {
top.window.resizeTo(screen.availWidth,screen.availHeight);
}
else if (document.layers||document.getElementById) {
if (top.window.outerHeight<screen.availHeight||top.window.outerWidth<screen.availWidth){
top.window.outerHeight = screen.availHeight;
top.window.outerWidth = screen.availWidth;
}
}
//-->
</script>
<% 
    pStr = "private, no-cache, must-revalidate" 
    Response.Expires = 60 
    Response.AddHeader "pragma", "no-cache" 
    Response.AddHeader "cache-control", pStr 
%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
	
	Dim xusername, xpatient_id_onstudy2, xmmm_behandling_none, xmmm_behandling_kirurgi, xmmm_behandling_kirurgi_beskriv, xmmm_behandling_kirurgi_dato, xmmm_behandling_radio, xmmm_behandling_radioterapi_beskriv, xmmm_behandling_radioterapi_dato, xmmm_behandling_hyperterm_melphalan, xmmm_behandling_hyperterm_melphalan_beskriv, xmmm_behandling_hyperterm_melphalan_dato, xmmm_behandling_hyperterm_tnfalfa, xmmm_behandling_hyperterm_tnfalfa_beskriv, xmmm_behandling_hyperterm_tnfalfa_dato, xmetastase_lunge, xmetastase_lever, xmetastase_milt, xmetastase_binyre, xmetastase_kutane, xmetastase_subkutane, xmetastase_knogle, xmetastase_lymfeknude, xmetastase_andet, xmetastase_andet_beskriv, xudbredning_verificeret
	Dim sConnString, objConn, sSQL, sSQL1
	xusername = Request.Cookies("melanomcookie")("User")
	xpatient_id_onstudy2 = Request.Form("patient_id_onstudy2")
	xmmm_behandling_none = MM_IIF(Request.Form("mmm_behandling_none"), 1, 0)
	xmmm_behandling_kirurgi = MM_IIF(Request.Form("mmm_behandling_kirurgi"), 1, 0)
	xmmm_behandling_kirurgi_beskriv = Request.Form("mmm_behandling_kirurgi_beskriv")
	xmmm_behandling_kirurgi_dato = MM_IIF(Request.Form("mmm_behandling_kirurgi_dato"), Request.Form("mmm_behandling_kirurgi_dato"), null)
	xmmm_behandling_radio = MM_IIF(Request.Form("mmm_behandling_radio"), 1, 0)
	xmmm_behandling_radioterapi_beskriv = Request.Form("mmm_behandling_radioterapi_beskriv")
	xmmm_behandling_radioterapi_dato = MM_IIF(Request.Form("mmm_behandling_radioterapi_dato"), Request.Form("mmm_behandling_radioterapi_dato"), null)
	xmmm_behandling_hyperterm_melphalan = MM_IIF(Request.Form("mmm_behandling_hyperterm_melphalan"), 1, 0)
	xmmm_behandling_hyperterm_melphalan_beskriv = Request.Form("mmm_behandling_hyperterm_melphalan_beskriv")
	xmmm_behandling_hyperterm_melphalan_dato = MM_IIF(Request.Form("mmm_behandling_hyperterm_melphalan_dato"), Request.Form("mmm_behandling_hyperterm_melphalan_dato"), null)
	xmmm_behandling_hyperterm_tnfalfa = MM_IIF(Request.Form("mmm_behandling_hyperterm_tnfalfa"), 1, 0)
	xmmm_behandling_hyperterm_tnfalfa_beskriv = Request.Form("mmm_behandling_hyperterm_tnfalfa_beskriv")
	xmmm_behandling_hyperterm_tnfalfa_dato = MM_IIF(Request.Form("mmm_behandling_hyperterm_tnfalfa_dato"), Request.Form("mmm_behandling_hyperterm_tnfalfa_dato"), null)
	xmetastase_lunge = MM_IIF(Request.Form("metastase_lunge"), 1, 0)
	xmetastase_lever = MM_IIF(Request.Form("metastase_lever"), 1, 0)
	xmetastase_milt = MM_IIF(Request.Form("metastase_milt"), 1, 0)
	xmetastase_binyre = MM_IIF(Request.Form("metastase_binyre"), 1, 0)
	xmetastase_kutane = MM_IIF(Request.Form("metastase_kutane"), 1, 0)
	xmetastase_subkutane = MM_IIF(Request.Form("metastase_subkutane"), 1, 0)
	xmetastase_knogle = MM_IIF(Request.Form("metastase_knogle"), 1, 0)
	xmetastase_lymfeknude = MM_IIF(Request.Form("metastase_lymfeknude"), 1, 0)
	xmetastase_andet = MM_IIF(Request.Form("metastase_andet"), 1, 0)
	xmetastase_andet_beskriv = Request.Form("metastase_andet_beskriv")
	xudbredning_verificeret = Request.Form("udbredning_verificeret")
	xpatient_id_behandling = Request.Form("patient_id_behandling")
	xafter_serie = Request.Form("after_serie")
	xintrona = Request.Form("introna")
	xpeg_introna = Request.Form("peg_introna")
	xil_2 = Request.Form("il_2")
	sConnString = MM_conmelanom_STRING
	Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open(sConnString) 
	sSQL = "INSERT INTO tbl_onstudy2 (username, patient_id_onstudy2, mmm_behandling_none, mmm_behandling_kirurgi, mmm_behandling_kirurgi_beskriv, mmm_behandling_kirurgi_dato, mmm_behandling_radio, mmm_behandling_radioterapi_beskriv, mmm_behandling_radioterapi_dato, mmm_behandling_hyperterm_melphalan, mmm_behandling_hyperterm_melphalan_beskriv, mmm_behandling_hyperterm_melphalan_dato, mmm_behandling_hyperterm_tnfalfa, mmm_behandling_hyperterm_tnfalfa_beskriv, mmm_behandling_hyperterm_tnfalfa_dato, metastase_lunge, metastase_lever, metastase_milt, metastase_binyre, metastase_kutane, metastase_subkutane, metastase_knogle, metastase_lymfeknude, metastase_andet, metastase_andet_beskriv, udbredning_verificeret) VALUES ('" & xusername & "','" & xpatient_id_onstudy2 & "','" & xmmm_behandling_none & "','" & xmmm_behandling_kirurgi & "','" & xmmm_behandling_kirurgi_beskriv & "','" & xmmm_behandling_kirurgi_dato & "','" & xmmm_behandling_radio & "','" & xmmm_behandling_radioterapi_beskriv & "','" & xmmm_behandling_radioterapi_dato & "','" & xmmm_behandling_hyperterm_melphalan & "','" & xmmm_behandling_hyperterm_melphalan_beskriv & "','" & xmmm_behandling_hyperterm_melphalan_dato & "','" & xmmm_behandling_hyperterm_tnfalfa & "','" & xmmm_behandling_hyperterm_tnfalfa_beskriv & "','" & xmmm_behandling_hyperterm_tnfalfa_dato & "','" & xmetastase_lunge & "','" & xmetastase_lever & "','" & xmetastase_milt & "','" & xmetastase_binyre & "','" & xmetastase_kutane & "','" & xmetastase_subkutane & "','" & xmetastase_knogle & "','" & xmetastase_lymfeknude & "','" & xmetastase_andet & "','" & xmetastase_andet_beskriv & "','" & xudbredning_verificeret & "')"
	sSQL1 = "INSERT INTO tbl_onstudy2_log (username, patient_id_onstudy2, mmm_behandling_none, mmm_behandling_kirurgi, mmm_behandling_kirurgi_beskriv, mmm_behandling_kirurgi_dato, mmm_behandling_radio, mmm_behandling_radioterapi_beskriv, mmm_behandling_radioterapi_dato, mmm_behandling_hyperterm_melphalan, mmm_behandling_hyperterm_melphalan_beskriv, mmm_behandling_hyperterm_melphalan_dato, mmm_behandling_hyperterm_tnfalfa, mmm_behandling_hyperterm_tnfalfa_beskriv, mmm_behandling_hyperterm_tnfalfa_dato, metastase_lunge, metastase_lever, metastase_milt, metastase_binyre, metastase_kutane, metastase_subkutane, metastase_knogle, metastase_lymfeknude, metastase_andet, metastase_andet_beskriv, udbredning_verificeret) VALUES ('" & xusername & "','" & xpatient_id_onstudy2 & "','" & xmmm_behandling_none & "','" & xmmm_behandling_kirurgi & "','" & xmmm_behandling_kirurgi_beskriv & "','" & xmmm_behandling_kirurgi_dato & "','" & xmmm_behandling_radio & "','" & xmmm_behandling_radioterapi_beskriv & "','" & xmmm_behandling_radioterapi_dato & "','" & xmmm_behandling_hyperterm_melphalan & "','" & xmmm_behandling_hyperterm_melphalan_beskriv & "','" & xmmm_behandling_hyperterm_melphalan_dato & "','" & xmmm_behandling_hyperterm_tnfalfa & "','" & xmmm_behandling_hyperterm_tnfalfa_beskriv & "','" & xmmm_behandling_hyperterm_tnfalfa_dato & "','" & xmetastase_lunge & "','" & xmetastase_lever & "','" & xmetastase_milt & "','" & xmetastase_binyre & "','" & xmetastase_kutane & "','" & xmetastase_subkutane & "','" & xmetastase_knogle & "','" & xmetastase_lymfeknude & "','" & xmetastase_andet & "','" & xmetastase_andet_beskriv & "','" & xudbredning_verificeret & "')"
	objConn.execute(sSQL)
	objConn.execute(sSQL1)
	objConn.Close
	Set objConn = nothing
	
  End If
End If
%>
<%
If (CStr(Request("MM_update")) = "form2") Then
  If (Not MM_abortEdit) Then
    ' execute the update

	Dim xusername2, xpatient_id_onstudy22, xmmm_behandling_none2, xmmm_behandling_kirurgi2, xmmm_behandling_kirurgi_beskriv2, xmmm_behandling_kirurgi_dato2, xmmm_behandling_radio2, xmmm_behandling_radioterapi_beskriv2, xmmm_behandling_radioterapi_dato2, xmmm_behandling_hyperterm_melphalan2, xmmm_behandling_hyperterm_melphalan_beskriv2, xmmm_behandling_hyperterm_melphalan_dato2, xmmm_behandling_hyperterm_tnfalfa2, xmmm_behandling_hyperterm_tnfalfa_beskriv2, xmmm_behandling_hyperterm_tnfalfa_dato2, xmetastase_lunge2, xmetastase_lever2, xmetastase_milt2, xmetastase_binyre2, xmetastase_kutane2, xmetastase_subkutane2, xmetastase_knogle2, xmetastase_lymfeknude2, xmetastase_andet2, xmetastase_andet_beskriv2, xudbredning_verificeret2
	Dim sConnString2, objConn2, sSQL_update, sSQL1_update
	xusername2 = Request.Cookies("melanomcookie")("User")
	xpatient_id_onstudy22 = Request.Form("patient_id_onstudy22")
	xmmm_behandling_none2 = MM_IIF(Request.Form("mmm_behandling_none2"), 1, 0)
	xmmm_behandling_kirurgi2 = MM_IIF(Request.Form("mmm_behandling_kirurgi2"), 1, 0)
	xmmm_behandling_kirurgi_beskriv2 = Request.Form("mmm_behandling_kirurgi_beskriv2")
	xmmm_behandling_kirurgi_dato2 = MM_IIF(Request.Form("mmm_behandling_kirurgi_dato2"), Request.Form("mmm_behandling_kirurgi_dato2"), null)
	xmmm_behandling_radio2 = MM_IIF(Request.Form("mmm_behandling_radio2"), 1, 0)
	xmmm_behandling_radioterapi_beskriv2 = Request.Form("mmm_behandling_radioterapi_beskriv2")
	xmmm_behandling_radioterapi_dato2 = MM_IIF(Request.Form("mmm_behandling_radioterapi_dato2"), Request.Form("mmm_behandling_radioterapi_dato2"), null)
	xmmm_behandling_hyperterm_melphalan2 = MM_IIF(Request.Form("mmm_behandling_hyperterm_melphalan2"), 1, 0)
	xmmm_behandling_hyperterm_melphalan_beskriv2 = Request.Form("mmm_behandling_hyperterm_melphalan_beskriv2")
	xmmm_behandling_hyperterm_melphalan_dato2 = MM_IIF(Request.Form("mmm_behandling_hyperterm_melphalan_dato2"), Request.Form("mmm_behandling_hyperterm_melphalan_dato2"), null)
	xmmm_behandling_hyperterm_tnfalfa2 = MM_IIF(Request.Form("mmm_behandling_hyperterm_tnfalfa2"), 1, 0)
	xmmm_behandling_hyperterm_tnfalfa_beskriv2 = Request.Form("mmm_behandling_hyperterm_tnfalfa_beskriv2")
	xmmm_behandling_hyperterm_tnfalfa_dato2 = MM_IIF(Request.Form("mmm_behandling_hyperterm_tnfalfa_dato2"), Request.Form("mmm_behandling_hyperterm_tnfalfa_dato2"), null)
	xmetastase_lunge2 = MM_IIF(Request.Form("metastase_lunge2"), 1, 0)
	xmetastase_lever2 = MM_IIF(Request.Form("metastase_lever2"), 1, 0)
	xmetastase_milt2 = MM_IIF(Request.Form("metastase_milt2"), 1, 0)
	xmetastase_binyre2 = MM_IIF(Request.Form("metastase_binyre2"), 1, 0)
	xmetastase_kutane2 = MM_IIF(Request.Form("metastase_kutane2"), 1, 0)
	xmetastase_subkutane2 = MM_IIF(Request.Form("metastase_subkutane2"), 1, 0)
	xmetastase_knogle2 = MM_IIF(Request.Form("metastase_knogle2"), 1, 0)
	xmetastase_lymfeknude2 = MM_IIF(Request.Form("metastase_lymfeknude2"), 1, 0)
	xmetastase_andet2 = MM_IIF(Request.Form("metastase_andet2"), 1, 0)
	xmetastase_andet_beskriv2 = Request.Form("metastase_andet_beskriv2")
	xudbredning_verificeret2 = Request.Form("udbredning_verificeret2")
	xonstudy2_updateID = MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)
	sConnString2 = MM_conmelanom_STRING
	Set objConn2 = Server.CreateObject("ADODB.Connection")
	objConn2.Open(sConnString2) 
	sSQL_update = "UPDATE tbl_onstudy2 SET username = '" & xusername2 & "', mmm_behandling_none = '" & xmmm_behandling_none2 & "', mmm_behandling_kirurgi = '" & xmmm_behandling_kirurgi2 & "', mmm_behandling_kirurgi_beskriv = '" & xmmm_behandling_kirurgi_beskriv2 & "', mmm_behandling_kirurgi_dato = '" & xmmm_behandling_kirurgi_dato2 & "', mmm_behandling_radio = '" & xmmm_behandling_radio2 & "', mmm_behandling_radioterapi_beskriv = '" & xmmm_behandling_radioterapi_beskriv2 & "', mmm_behandling_radioterapi_dato = '" & xmmm_behandling_radioterapi_dato2 & "', mmm_behandling_hyperterm_melphalan = '" & xmmm_behandling_hyperterm_melphalan2 & "', mmm_behandling_hyperterm_melphalan_beskriv = '" & xmmm_behandling_hyperterm_melphalan_beskriv2 & "', mmm_behandling_hyperterm_melphalan_dato = '" & xmmm_behandling_hyperterm_melphalan_dato2 & "', mmm_behandling_hyperterm_tnfalfa = '" & xmmm_behandling_hyperterm_tnfalfa2 & "', mmm_behandling_hyperterm_tnfalfa_beskriv = '" & xmmm_behandling_hyperterm_tnfalfa_beskriv2 & "', mmm_behandling_hyperterm_tnfalfa_dato = '" & xmmm_behandling_hyperterm_tnfalfa_dato2 & "', metastase_lunge = '" & xmetastase_lunge2 & "', metastase_lever = '" & xmetastase_lever2 & "', metastase_milt = '" & xmetastase_milt2 & "', metastase_binyre = '" & xmetastase_binyre2 & "', metastase_kutane = '" & xmetastase_kutane2 & "', metastase_subkutane = '" & xmetastase_subkutane2 & "', metastase_knogle = '" & xmetastase_knogle2 & "', metastase_lymfeknude = '" & xmetastase_lymfeknude2 & "', metastase_andet = '" & xmetastase_andet2 & "', metastase_andet_beskriv = '" & xmetastase_andet_beskriv2 & "', udbredning_verificeret = '" & xudbredning_verificeret2 & "' WHERE onstudy2_id = '" & xonstudy2_updateID & "'"
	sSQL1_update = "INSERT INTO tbl_onstudy2_log (username, patient_id_onstudy2, mmm_behandling_none, mmm_behandling_kirurgi, mmm_behandling_kirurgi_beskriv, mmm_behandling_kirurgi_dato, mmm_behandling_radio, mmm_behandling_radioterapi_beskriv, mmm_behandling_radioterapi_dato, mmm_behandling_hyperterm_melphalan, mmm_behandling_hyperterm_melphalan_beskriv, mmm_behandling_hyperterm_melphalan_dato, mmm_behandling_hyperterm_tnfalfa, mmm_behandling_hyperterm_tnfalfa_beskriv, mmm_behandling_hyperterm_tnfalfa_dato, metastase_lunge, metastase_lever, metastase_milt, metastase_binyre, metastase_kutane, metastase_subkutane, metastase_knogle, metastase_lymfeknude, metastase_andet, metastase_andet_beskriv, udbredning_verificeret) VALUES ('" & xusername2 & "','" & xpatient_id_onstudy22 & "','" & xmmm_behandling_none2 & "','" & xmmm_behandling_kirurgi2 & "','" & xmmm_behandling_kirurgi_beskriv2 & "','" & xmmm_behandling_kirurgi_dato2 & "','" & xmmm_behandling_radio2 & "','" & xmmm_behandling_radioterapi_beskriv2 & "','" & xmmm_behandling_radioterapi_dato2 & "','" & xmmm_behandling_hyperterm_melphalan2 & "','" & xmmm_behandling_hyperterm_melphalan_beskriv2 & "','" & xmmm_behandling_hyperterm_melphalan_dato2 & "','" & xmmm_behandling_hyperterm_tnfalfa2 & "','" & xmmm_behandling_hyperterm_tnfalfa_beskriv2 & "','" & xmmm_behandling_hyperterm_tnfalfa_dato2 & "','" & xmetastase_lunge2 & "','" & xmetastase_lever2 & "','" & xmetastase_milt2 & "','" & xmetastase_binyre2 & "','" & xmetastase_kutane2 & "','" & xmetastase_subkutane2 & "','" & xmetastase_knogle2 & "','" & xmetastase_lymfeknude2 & "','" & xmetastase_andet2 & "','" & xmetastase_andet_beskriv2 & "','" & xudbredning_verificeret2 & "')"
	objConn2.execute(sSQL_update)
	objConn2.execute(sSQL1_update)
	objConn2.Close
	Set objConn2 = nothing

  End If
End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("patient_id_onstudy2") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("patient_id_onstudy2")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_conmelanom_STRING
Recordset1_cmd.CommandText = "SELECT * FROM tbl_onstudy2 WHERE patient_id_onstudy2 = ?" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 10, Recordset1__MMColParam) ' adVarChar

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Melanom - On study II</title>
<link href="/melanom/oneColElsCtrHdr.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style1 {
	font-size: 24px;
	font-weight: bold;
	color: #0000FF;
}
.style2 {
font-size: 18px;
color: #0000FF}
-->
</style>
<style type="text/css">
<!--
body {
	background-color: #FFFFFF;
}
.style31 {
	font-size: 9px
}
a:link {
	color: #000099;
}
a:visited {
	color: #000099;
}
.style32 {color: #000000}
.style33 {
	color: #FFFFFF;
	font-weight: bold;
}
.style34 {
	color: #FF0000;
	font-weight: bold;
}
.stylegreen {color: #090;
	font-weight:bold}
.stylered {
	color:#F00;
	font-weight:bold;
}
-->
</style>
</head>
<body class="oneColElsCtrHdr">
<%  
Session.LCID=1053
%>
<%if (Recordset1.EOF) THEN%>
<form action="<%=MM_editAction%>" method="post" name="form1" id="form1">
  <table border="0" cellpadding="0" cellspacing="0">
    <tr valign="baseline">
      <td align="right" nowrap="nowrap"><div align="left" class="style2">ON STUDY 2</div></td>
      <td colspan="3">&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td width="443" align="right" nowrap="nowrap">Patientkode:</td>
      <td colspan="3"><input type="hidden" name="patient_id_onstudy2" value="<%=(Request.QueryString("patient_id_onstudy2"))%>" size="32" />        &nbsp;&nbsp;<%=(Request.QueryString("patient_id_onstudy2"))%> </td>
    </tr>
    <tr valign="baseline">
      <td colspan="4" nowrap="nowrap">1.	Tidligere behandling for MMM (M1-sygdom) (+ angivelse af tidspunkt, samt at der jo kan være brugt flere af modaliteterne):</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Ingen:</td>
      <td width="35"><input type="checkbox" name="mmm_behandling_none" value="1" />      </td>
      <td width="476">&nbsp;</td>
      <td width="82">&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Kirurgi:</td>
      <td><input type="checkbox" name="mmm_behandling_kirurgi" value="1" />      </td>
      <td><input type="text" name="mmm_behandling_kirurgi_beskriv" value="" size="75" /></td>
      <td><input type="text" name="mmm_behandling_kirurgi_dato" value="" size="12" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Radioterapi:</td>
      <td><input type="checkbox" name="mmm_behandling_radio" value="1" />      </td>
      <td><input type="text" name="mmm_behandling_radioterapi_beskriv" value="" size="75" /></td>
      <td><input type="text" name="mmm_behandling_radioterapi_dato" value="" size="12" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Hyperterm Regional Perfusion (Melphalan):</td>
      <td><input type="checkbox" name="mmm_behandling_hyperterm_melphalan" value="1" />      </td>
      <td><input type="text" name="mmm_behandling_hyperterm_melphalan_beskriv" value="" size="75" /></td>
      <td><input type="text" name="mmm_behandling_hyperterm_melphalan_dato" value="" size="12" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Hyperterm Regional Perfusion (TNF-alfa) :</td>
      <td><input type="checkbox" name="mmm_behandling_hyperterm_tnfalfa" value="1" />      </td>
      <td><input type="text" name="mmm_behandling_hyperterm_tnfalfa_beskriv" value="" size="75" /></td>
      <td><input type="text" name="mmm_behandling_hyperterm_tnfalfa_dato" value="" size="12" /></td>
    </tr>
    <tr valign="baseline">
      <td colspan="4" nowrap="nowrap">2.	Aktuelle sygdomsudbredning (afkryds alle der gælder):</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Lunge metastaser:</td>
      <td><input type="checkbox" name="metastase_lunge" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Lever metastaser:</td>
      <td><input type="checkbox" name="metastase_lever" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Milt metastaser:</td>
      <td><input type="checkbox" name="metastase_milt" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Binyre metastaser:</td>
      <td><input type="checkbox" name="metastase_binyre" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Kutane metastaser:</td>
      <td><input type="checkbox" name="metastase_kutane" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Subkutane metastaser:</td>
      <td><input type="checkbox" name="metastase_subkutane" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Knogle metastaser:</td>
      <td><input type="checkbox" name="metastase_knogle" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Lymfeknude metastaser:</td>
      <td><input type="checkbox" name="metastase_lymfeknude" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Andet:</td>
      <td><input type="checkbox" name="metastase_andet" value="1" />      </td>
      <td><input type="text" name="metastase_andet_beskriv" value="" size="75" /></td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">3.	Aktuelle sygdomsudbredning bioptisk verificeret:</td>
      <td colspan="3"><select name="udbredning_verificeret" id="udbredning_verificeret">
                <option value="na" selected="selected"></option>
                <option value="yes">yes</option>
                <option value="no">no</option>
      </select></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">&nbsp;</td>
      <td>&nbsp;</td>
      <td><input type="submit" class="stylegreen" value="Gem" /></td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <input type="hidden" name="MM_insert" value="form1" />
</form>
<p>&nbsp;</p>
<%Else%>
<form action="<%=MM_editAction%>" method="post" name="form2" id="form2">
  <table border="0" cellpadding="0" cellspacing="0">
    <tr valign="baseline">
      <td nowrap="nowrap" align="right"><div align="left"><span class="style2">ON STUDY 2</span></div></td>
      <td colspan="3">&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Patientkode:</td>
      <td colspan="3"><input type="hidden" name="patient_id_onstudy22" value="<%=(Request.QueryString("patient_id_onstudy2"))%>" size="32" />
&nbsp;&nbsp;<%=(Request.QueryString("patient_id_onstudy2"))%> </td>
    </tr>
    <tr valign="baseline">
      <td colspan="4" align="right" nowrap="nowrap"><div align="left">1.	Tidligere behandling for MMM (M1-sygdom) (+ angivelse af tidspunkt, samt at der jo kan være brugt flere af modaliteterne):</div></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right"><input type="hidden" name="onstudy2_id" value="<%=(Recordset1.Fields.Item("onstudy2_id").Value)%>" size="32" />
      Ingen:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("mmm_behandling_none").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="mmm_behandling_none2" value="1" /></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Kirurgi:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("mmm_behandling_kirurgi").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="mmm_behandling_kirurgi2" value="1" /></td>
      <td><input type="text" name="mmm_behandling_kirurgi_beskriv2" value="<%=(Recordset1.Fields.Item("mmm_behandling_kirurgi_beskriv").Value)%>" size="75" /></td>
      <td><input type="text" name="mmm_behandling_kirurgi_dato2" value="<%=(Recordset1.Fields.Item("mmm_behandling_kirurgi_dato").Value)%>" size="10" /></td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Radioterapi:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("mmm_behandling_radio").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="mmm_behandling_radio2" value="1" />      </td>
      <td><input type="text" name="mmm_behandling_radioterapi_beskriv2" value="<%=(Recordset1.Fields.Item("mmm_behandling_radioterapi_beskriv").Value)%>" size="75" /></td>
      <td><input type="text" name="mmm_behandling_radioterapi_dato2" value="<%=(Recordset1.Fields.Item("mmm_behandling_radioterapi_dato").Value)%>" size="10" /></td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Hyperterm Regional Perfusion (Melphalan):</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("mmm_behandling_hyperterm_melphalan").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="mmm_behandling_hyperterm_melphalan2" value="1" />      </td>
      <td><input type="text" name="mmm_behandling_hyperterm_melphalan_beskriv2" value="<%=(Recordset1.Fields.Item("mmm_behandling_hyperterm_melphalan_beskriv").Value)%>" size="75" /></td>
      <td><input type="text" name="mmm_behandling_hyperterm_melphalan_dato2" value="<%=(Recordset1.Fields.Item("mmm_behandling_hyperterm_melphalan_dato").Value)%>" size="10" /></td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Hyperterm Regional Perfusion (TNF-alfa) :</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("mmm_behandling_hyperterm_tnfalfa").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="mmm_behandling_hyperterm_tnfalfa2" value="1" />      </td>
      <td><input type="text" name="mmm_behandling_hyperterm_tnfalfa_beskriv2" value="<%=(Recordset1.Fields.Item("mmm_behandling_hyperterm_tnfalfa_beskriv").Value)%>" size="75" /></td>
      <td><input type="text" name="mmm_behandling_hyperterm_tnfalfa_dato2" value="<%=(Recordset1.Fields.Item("mmm_behandling_hyperterm_tnfalfa_dato").Value)%>" size="10" /></td>
    </tr>
    <tr valign="baseline">
      <td colspan="4" align="right" nowrap="nowrap"><div align="left">2.	Aktuelle sygdomsudbredning (afkryds alle der gælder):</div></td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Lunge metastaser:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("metastase_lunge").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="metastase_lunge2" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Lever metastaser:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("metastase_lever").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="metastase_lever2" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Milt metastaser:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("metastase_milt").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="metastase_milt2" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Binyre metastaser:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("metastase_binyre").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="metastase_binyre2" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Kutane metastaser:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("metastase_kutane").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="metastase_kutane2" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Subkutane metastaser:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("metastase_subkutane").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="metastase_subkutane2" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Knogle metastaser:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("metastase_knogle").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="metastase_knogle2" value="1" /></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Lymfeknude metastaser:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("metastase_lymfeknude").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="metastase_lymfeknude2" value="1" />      </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">Andet:</td>
      <td><input <%If (CStr((Recordset1.Fields.Item("metastase_andet").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="metastase_andet2" value="1" />      </td>
      <td><input type="text" name="metastase_andet_beskriv2" value="<%=(Recordset1.Fields.Item("metastase_andet_beskriv").Value)%>" size="75" /></td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap="nowrap">3.	Aktuelle sygdomsudbredning bioptisk verificeret:</td>
      <td><select name="udbredning_verificeret2" id="udbredning_verificeret2">
                <option value="na" <%If (Not isNull(Recordset1.Fields.Item("udbredning_verificeret").Value)) Then If ("na" = CStr(Recordset1.Fields.Item("udbredning_verificeret").Value)) Then Response.Write("selected='selected'") : Response.Write("")%>></option>
                <option value="yes" <%If (Not isNull(Recordset1.Fields.Item("udbredning_verificeret").Value)) Then If ("yes" = CStr(Recordset1.Fields.Item("udbredning_verificeret").Value)) Then Response.Write("selected='selected'") : Response.Write("")%>>yes</option>
                <option value="no"<%If (Not isNull(Recordset1.Fields.Item("udbredning_verificeret").Value)) Then If ("no" = CStr(Recordset1.Fields.Item("udbredning_verificeret").Value)) Then Response.Write("selected='selected'") : Response.Write("")%>>no</option>
      </select></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">&nbsp;</td>
      <td>&nbsp;</td>
      <td><input type="submit" class="stylegreen" value="Opdater" /></td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form2" />
  <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("onstudy2_id").Value %>" />
</form>
<%End If%>
<p>&nbsp;</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
ASKER CERTIFIED SOLUTION
Steve Tempest

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 22 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 22 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros