elias12
asked on
preventing fields from updating (SQL Update)
Hi all
I use the code below (asp Page) to update records in our customer DB
-------------------------- ---------- ---------- ---------- ----
<%@ codepage = 1250 LCID = 2055 Â %>
<% If Session("project6_status") <>Â "login" Then Response.Redirect "login.asp" %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->
<!--#include file="aspmkrfn.asp"-->
<%
Response.Buffer = True
key = Request.Querystring("key")
If key = ""Â Or IsNull(key) Then key = Request.Form("key")
If key = ""Â Or IsNull(key) Then Response.Redirect "Kundenlist.asp"
' Get action
a = Request.Form("a")
If a = ""Â Or IsNull(a) Then
  a = "I"   ' Display with input box
End If
' Get fields from form
x_ID = Request.Form("x_ID")
x_Domain = Request.Form("x_Domain")
x_TLD = Request.Form("x_TLD")
x_LoginName = Request.Form("x_LoginName" )
x_Passwort = Request.Form("x_Passwort")
x_Service = Request.Form("x_Service")
x_Kundennummer = Request.Form("x_Kundennumm er")
x_FK_ID_Server = Request.Form("x_FK_ID_Serv er")
x_Erfasst_am = Request.Form("x_Erfasst_am ")
x_gesperrt = Request.Form("x_gesperrt")
x_Bemerkungen = Request.Form("x_Bemerkunge n")
x_alte_infos = Request.Form("x_alte_infos ")
x_alg_infos = Request.Form("x_alg_infos" )
x_best_anm = Request.Form("x_best_anm")
x_Reseller = Request.Form("x_Reseller")
x_Reseller_nummer = Request.Form("x_Reseller_n ummer")
x_Anrede_best = Request.Form("x_Anrede_bes t")
x_Firma_best = Request.Form("x_Firma_best ")
x_Nname_best = Request.Form("x_Nname_best ")
x_Vorname_best = Request.Form("x_Vorname_be st")
x_Strasse_best = Request.Form("x_Strasse_be st")
x_Postfach_best = Request.Form("x_Postfach_b est")
x_PLZ_best = Request.Form("x_PLZ_best")
x_Ort_best = Request.Form("x_Ort_best")
x_Telefon_best = Request.Form("x_Telefon_be st")
x_Fax_best = Request.Form("x_Fax_best")
x_Land_best = Request.Form("x_Land_best" )
x_Email_best = Request.Form("x_Email_best ")
x_Anrede_re = Request.Form("x_Anrede_re" )
x_Firma_re = Request.Form("x_Firma_re")
x_Nname_re = Request.Form("x_Nname_re")
x_Vorname_re = Request.Form("x_Vorname_re ")
x_Strasse_re = Request.Form("x_Strasse_re ")
x_Postfach_re = Request.Form("x_Postfach_r e")
x_PLZ_re = Request.Form("x_PLZ_re")
x_Ort_re = Request.Form("x_Ort_re")
x_Telefon_re = Request.Form("x_Telefon_re ")
x_Fax_re = Request.Form("x_Fax_re")
x_Land_re = Request.Form("x_Land_re")
x_Email_re = Request.Form("x_Email_re")
x_Anrede_tec = Request.Form("x_Anrede_tec ")
x_Firma_tec = Request.Form("x_Firma_tec" )
x_Nname_tec = Request.Form("x_Nname_tec" )
x_Vorname_tec = Request.Form("x_Vorname_te c")
x_Strasse_tec = Request.Form("x_Strasse_te c")
x_Postfach_tec = Request.Form("x_Postfach_t ec")
x_PLZ_tec = Request.Form("x_PLZ_tec")
x_Ort_tec = Request.Form("x_Ort_tec")
x_Telefon_tec = Request.Form("x_Telefon_te c")
x_Fax_tec = Request.Form("x_Fax_tec")
x_Land_tec = Request.Form("x_Land_tec")
x_Email_tec = Request.Form("x_Email_tec" )
x_Kontrolliert = Request.Form("x_Kontrollie rt")
x_erfasst_durch = Request.Form("x_erfasst_du rch")
x_MXrecord = Request.Form("x_MXrecord")
x_Survey = Request.Form("x_Survey")
x_sperrdatum = Request.Form("x_sperrdatum ")
' Open Connection to the database
Set conn = Server.CreateObject("ADODB .Connectio n")
conn.Open xDb_Conn_Str
Select Case a
  Case "I": ' Get a record to display
    tkey = "" & key & ""
    strsql = "SELECT * FROM [Kunden] WHERE [ID]=" & tkey
    Set rs = Server.CreateObject("ADODB .Recordset ")
    rs.Open strsql, conn
    If rs.Eof Then
      Response.Clear
      Response.Redirect "Kundenlist.asp"
    Else
      rs.MoveFirst
    End If
    ' Get the field contents
    x_ID = rs("ID")
    x_Domain = rs("Domain")
    x_TLD = rs("TLD")
    x_LoginName = rs("LoginName")
    x_Passwort = rs("Passwort")
    x_Service = rs("Service")
    x_Kundennummer = rs("Kundennummer")
    x_FK_ID_Server = rs("FK_ID_Server")
    x_Erfasst_am = rs("Erfasst_am")
    x_gesperrt = rs("gesperrt")
    x_Bemerkungen = rs("Bemerkungen")
    x_alte_infos = rs("alte_infos")
    x_alg_infos = rs("alg_infos")
    x_best_anm = rs("best_anm")
    x_Reseller = rs("Reseller")
    x_Reseller_nummer = rs("Reseller_nummer")
    x_Anrede_best = rs("Anrede_best")
    x_Firma_best = rs("Firma_best")
    x_Nname_best = rs("Nname_best")
    x_Vorname_best = rs("Vorname_best")
    x_Strasse_best = rs("Strasse_best")
    x_Postfach_best = rs("Postfach_best")
    x_PLZ_best = rs("PLZ_best")
    x_Ort_best = rs("Ort_best")
    x_Telefon_best = rs("Telefon_best")
    x_Fax_best = rs("Fax_best")
    x_Land_best = rs("Land_best")
    x_Email_best = rs("Email_best")
    x_Anrede_re = rs("Anrede_re")
    x_Firma_re = rs("Firma_re")
    x_Nname_re = rs("Nname_re")
    x_Vorname_re = rs("Vorname_re")
    x_Strasse_re = rs("Strasse_re")
    x_Postfach_re = rs("Postfach_re")
    x_PLZ_re = rs("PLZ_re")
    x_Ort_re = rs("Ort_re")
    x_Telefon_re = rs("Telefon_re")
    x_Fax_re = rs("Fax_re")
    x_Land_re = rs("Land_re")
    x_Email_re = rs("Email_re")
    x_Anrede_tec = rs("Anrede_tec")
    x_Firma_tec = rs("Firma_tec")
    x_Nname_tec = rs("Nname_tec")
    x_Vorname_tec = rs("Vorname_tec")
    x_Strasse_tec = rs("Strasse_tec")
    x_Postfach_tec = rs("Postfach_tec")
    x_PLZ_tec = rs("PLZ_tec")
    x_Ort_tec = rs("Ort_tec")
    x_Telefon_tec = rs("Telefon_tec")
    x_Fax_tec = rs("Fax_tec")
    x_Land_tec = rs("Land_tec")
    x_Email_tec = rs("Email_tec")
    x_Kontrolliert = rs("Kontrolliert")
    x_erfasst_durch = rs("erfasst_durch")
    x_MXrecord = rs("MXrecord")
    x_Survey = rs("Survey")
    x_sperrdatum = rs("sperrdatum")
    rs.Close
    Set rs = Nothing
  Case "U": ' Update
 Â
    ' Open record
    tkey = "" & key & ""
    strsql = "SELECT * FROM [Kunden] WHERE [ID]=" & tkey
    Set rs = Server.CreateObject("ADODB .Recordset ")
    rs.Open strsql, conn, 1, 2
    If rs.Eof Then
      Response.Clear
      Response.Redirect "Kundenlist.asp"
    End If
    tmpFld = x_ID
    If Not IsNumeric(tmpFld) Then tmpFld = 0
    rs("ID") = CLng(tmpFld)
    tmpFld = Trim(x_Domain)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Domain") = tmpFld
    tmpFld = Trim(x_TLD)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("TLD") = tmpFld
    tmpFld = Trim(x_LoginName)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("LoginName") = tmpFld
    tmpFld = Trim(x_Passwort)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Passwort") = tmpFld
    tmpFld = Trim(x_Service)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Service") = tmpFld
    tmpFld = Trim(x_Kundennummer)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Kundennummer") = tmpFld
    tmpFld = Trim(x_FK_ID_Server)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("FK_ID_Server") = tmpFld
    tmpFld = x_Erfasst_am
    If Not IsNumeric(tmpFld) Then tmpFld = 0
    rs("Erfasst_am") = CLng(tmpFld)
    tmpFld = x_gesperrt
    If tmpFld = "1" Then
      rs("gesperrt") = True
    Else
      rs("gesperrt") = False
    End If
    tmpFld = Trim(x_Bemerkungen)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Bemerkungen") = tmpFld
    tmpFld = Trim(x_alte_infos)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("alte_infos") = tmpFld
    tmpFld = Trim(x_alg_infos)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("alg_infos") = tmpFld
    tmpFld = Trim(x_best_anm)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("best_anm") = tmpFld
    tmpFld = x_Reseller
    If tmpFld = "1" Then
      rs("Reseller") = True
    Else
      rs("Reseller") = False
    End If
    tmpFld = Trim(x_Reseller_nummer)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Reseller_nummer") = tmpFld
    tmpFld = Trim(x_Anrede_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Anrede_best") = tmpFld
    tmpFld = Trim(x_Firma_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Firma_best") = tmpFld
    tmpFld = Trim(x_Nname_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Nname_best") = tmpFld
    tmpFld = Trim(x_Vorname_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Vorname_best") = tmpFld
    tmpFld = Trim(x_Strasse_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Strasse_best") = tmpFld
    tmpFld = Trim(x_Postfach_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Postfach_best") = tmpFld
    tmpFld = Trim(x_PLZ_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("PLZ_best") = tmpFld
    tmpFld = Trim(x_Ort_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Ort_best") = tmpFld
    tmpFld = Trim(x_Telefon_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Telefon_best") = tmpFld
    tmpFld = Trim(x_Fax_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Fax_best") = tmpFld
    tmpFld = Trim(x_Land_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Land_best") = tmpFld
    tmpFld = Trim(x_Email_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Email_best") = tmpFld
    tmpFld = Trim(x_Anrede_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Anrede_re") = tmpFld
    tmpFld = Trim(x_Firma_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Firma_re") = tmpFld
    tmpFld = Trim(x_Nname_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Nname_re") = tmpFld
    tmpFld = Trim(x_Vorname_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Vorname_re") = tmpFld
    tmpFld = Trim(x_Strasse_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Strasse_re") = tmpFld
    tmpFld = Trim(x_Postfach_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Postfach_re") = tmpFld
    tmpFld = Trim(x_PLZ_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("PLZ_re") = tmpFld
    tmpFld = Trim(x_Ort_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Ort_re") = tmpFld
    tmpFld = Trim(x_Telefon_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Telefon_re") = tmpFld
    tmpFld = Trim(x_Fax_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Fax_re") = tmpFld
    tmpFld = Trim(x_Land_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Land_re") = tmpFld
    tmpFld = Trim(x_Email_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Email_re") = tmpFld
    tmpFld = Trim(x_Anrede_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Anrede_tec") = tmpFld
    tmpFld = Trim(x_Firma_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Firma_tec") = tmpFld
    tmpFld = Trim(x_Nname_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Nname_tec") = tmpFld
    tmpFld = Trim(x_Vorname_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Vorname_tec") = tmpFld
    tmpFld = Trim(x_Strasse_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Strasse_tec") = tmpFld
    tmpFld = Trim(x_Postfach_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Postfach_tec") = tmpFld
    tmpFld = Trim(x_PLZ_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("PLZ_tec") = tmpFld
    tmpFld = Trim(x_Ort_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Ort_tec") = tmpFld
    tmpFld = Trim(x_Telefon_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Telefon_tec") = tmpFld
    tmpFld = Trim(x_Fax_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Fax_tec") = tmpFld
    tmpFld = Trim(x_Land_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Land_tec") = tmpFld
    tmpFld = Trim(x_Email_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Email_tec") = tmpFld
    tmpFld = x_Kontrolliert
    If tmpFld = "1" Then
      rs("Kontrolliert") = True
    Else
      rs("Kontrolliert") = False
    End If
    tmpFld = Trim(x_erfasst_durch)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("erfasst_durch") = tmpFld
    tmpFld = Trim(x_MXrecord)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("MXrecord") = tmpFld
    tmpFld = Trim(x_Survey)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Survey") = tmpFld
    tmpFld = x_sperrdatum
    If IsDate(tmpFld) Then
      rs("sperrdatum") = CDate(tmpFld)
    Else
      rs("sperrdatum") = Null
    End If
    rs.Update
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
   Â
    If x_gesperrt THEN
    myNewDateTime = NOW ()
    tkey = "" & key & ""
    updatesql = "UPDATE [Kunden] SET sperrdatum ='" & myNewDateTime & "' WHERE [ID]=" & tkey
    Set conn = Server.CreateObject("ADODB .CONNECTIO N")
    Set rs = Server.CreateObject("ADODB .Recordset ")
    conn.Open xDb_Conn_Str
    conn.execute(updatesql)
    conn.close
    Set conn = Nothing
    End If
       Â
    Response.Clear
    Response.Redirect "Kundenlist.asp"
End Select
%>
<!--#include file="header.asp"-->
<p><font class="formtag">Kunden Eintrag bearbeiten<br>
  <br>
  <a href="Kundenlist.asp">Zuru eck zur Uebersicht </a></font></p>
<script language="JavaScript" src="ew.js"></script>
<script language="JavaScript">
<!-- start Javascript
function  EW_checkMyForm(EW_this) {
if (EW_this.x_ID &&Â !EW_checkinteger(EW_this.x _ID.value) ) {
    if (!EW_onError(EW_this, EW_this.x_ID, "TEXT", "Incorrect integer - ID"))
      return false;
    }
if (EW_this.x_Erfasst_am &&Â !EW_checkinteger(EW_this.x _Erfasst_a m.value)) {
    if (!EW_onError(EW_this, EW_this.x_Erfasst_am, "TEXT", "Incorrect integer - Erfasst am"))
      return false;
    }
return true;
}
// end JavaScript -->
</script>
<form onSubmit="return EW_checkMyForm(this);" Â action="Kundenedit.asp" method="post">
<p>
<input type="hidden" name="a" value="U">
<input type="hidden" name="key" value="<%= key %>">
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#CCCCCC">
<tr>
<td width="104" bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">ID</font>& nbsp;</fon t></td>
<td width="477" bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_ID" size="30" value="<%= Server.HTMLEncode(x_ID&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Domain</fo nt> < /font></td >
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Domain" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Domain &"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">TLD</font> </fo nt></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_TLD" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_TLD&"" ) %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Login Name</font> </font></ td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_LoginName" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_LoginN ame&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Passwort</ font>  ;</font></ td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Passwort" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Passwo rt&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Service</f ont> </font></t d>
<td bgcolor="#F5F5F5"><select name="x_Service" id="x_Service">
 <option value="Domain Parking 1 MB">Domain Parking 1 MB</option>
 <option value="Startup Paket 50 MB">Startup Paket 50 MB</option>
 <option value="Mini Paket 250 MB">Mini Paket 250 MB</option>
 <option value="Power Paket 300 MB">Power Paket 300 MB</option>
 <option value="Medium Paket 400 MB">Medium Paket 400 MB</option>
 <option value="Premium Paket 650 MB">Premium Paket 650 MB</option>
 <option value="Special Paket 1000 MB">Special Paket 1000 MB</option>
 <option value="Mailhost 10">Mailhost 10 </option>
 <option value="Mailhost 20">Mailhost 20</option>
 <option value="Mailhost 50">Mailhost 50</option>
 <option value="Mailhost 80">Mailhost 80</option>
 <option value="Mailhost 100">Mailhost 100</option>
 <option value="Housing">Housing</o ption>
</select> Â </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Kundennumm er</font>& nbsp;</fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Kundennummer" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Kunden nummer&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">FK ID Server</font> </font> </td>
<td bgcolor="#F5F5F5"><font class="formtag"><% If Session("Kunden_masterkey" ) <>Â "" Then
x_FK_ID_Server = Session("Kunden_masterkey" ) %>
<% Response.Write x_FK_ID_Server %><input type="hidden" name="x_FK_ID_Server" value="<%= x_FK_ID_Server %>">
<% Else %>
<select name="x_FK_ID_Server" id="x_FK_ID_Server">
 <option value="web001.webspace4you .ch/domain adminlevel (Linux) FTP Host = web001.webspace4you.ch">we b001.websp ace4you.ch /domainadm inlevel (Linux) FTP Host = web001.webspace4you.ch</op tion>
 <option value="web002.webspace4you .ch/domain adminlevel (Linux) FTP Host = web002.webspace4you.ch">we b002.websp ace4you.ch /domainadm inlevel (Linux) FTP Host = web002.webspace4you.ch</op tion>
 <option value="web003.webspace4you .ch/domain adminlevel (Linux) FTP Host= web003.webspace4you.ch">we b003.websp ace4you.ch /domainadm inlevel (Linux) FTP Host= web003.webspace4you.ch</op tion>
 <option value="web004.webspace4you .ch/domain adminlevel (Linux) FTP Host = web004.webspace4you.ch">we b004.websp ace4you.ch /domainadm inlevel (Linux) FTP Host = web004.webspace4you.ch</op tion>
 <option value="web005.webspace4you .ch/domain adminlevel (Linux) FTP Host = web005.webspace4you.ch">we b005.websp ace4you.ch /domainadm inlevel (Linux) FTP Host = web005.webspace4you.ch</op tion>
 <option value="web011.webspace4you .ch/hc (Windows) FTP Host = web011.webspace4you.ch">we b011.websp ace4you.ch /hc (Windows) FTP Host = web011.webspace4you.ch</op tion>
 <option value="web012.webspace4you .ch/hc (Windows) FTP Host = web012.webspace4you.ch">we b012.websp ace4you.ch /hc (Windows) FTP Host = web012.webspace4you.ch</op tion>
 <option value="web013.webspace4you .ch/hc (Windows) FTP Host = web013.webspace4you.ch">we b013.websp ace4you.ch /hc (Windows) FTP Host = web013.webspace4you.ch</op tion>
 <option value="web014.webspace4you .ch/hc (Windows) FTP Host = web014.webspace4you.ch">we b014.websp ace4you.ch /hc (Windows) FTP Host = web014.webspace4you.ch</op tion>
 <option value="web015.webspace4you .ch/hc (Windows) FTP Host = web015.webspace4you.ch">we b015.websp ace4you.ch /hc (Windows) FTP Host = web015.webspace4you.ch</op tion>
 <option value="web016.webspace4you .ch/hc (Windows) FTP Host = web016.webspace4you.ch">we b016.websp ace4you.ch /hc (Windows) FTP Host = web016.webspace4you.ch</op tion>
 <option value="Housing">Housing</o ption>
</select>
<% End If %>
</font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Erfasst am</font> </font></td >
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Erfasst_am" size="30" value="<%= Server.HTMLEncode(x_Erfass t_am&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">gesperrt</ font>  ;</font></ td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="radio" name="x_gesperrt"<% If x_gesperrt = True Then %> checked<% End If %> value="1"><%= "Ja" %><input type="radio" name="x_gesperrt"<% If x_gesperrt = False Then %> checked<% End If %> value="0"><%= "Nein" %></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Bemerkunge n</font>&n bsp;</font ></td>
<td bgcolor="#F5F5F5"><font class="formtag"><textarea cols=35 rows=4 name="x_Bemerkungen"><%= x_Bemerkungen %></textarea></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">alte infos</font> </font>< /td>
<td bgcolor="#F5F5F5"><font class="formtag"><textarea cols=35 rows=4 name="x_alte_infos"><%= x_alte_infos %></textarea></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">alg infos</font> </font>< /td>
<td bgcolor="#F5F5F5"><font class="formtag"><textarea cols=35 rows=4 name="x_alg_infos"><%= x_alg_infos %></textarea></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">best anm</font> </font></t d>
<td bgcolor="#F5F5F5"><font class="formtag"><textarea cols=35 rows=4 name="x_best_anm"><%= x_best_anm %></textarea></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Reseller</ font>  ;</font></ td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="radio" name="x_Reseller"<% If x_Reseller = True Then %> checked<% End If %> value="1"><%= "Ja" %><input type="radio" name="x_Reseller"<% If x_Reseller = False Then %> checked<% End If %> value="0"><%= "Nein" %></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Reseller nummer</font> </font> </td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Reseller_nummer" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Resell er_nummer& "") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Anrede Besteller </font></font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Anrede_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Anrede _best&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Firma Besteller </font></font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Firma_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Firma_ best&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Nachname Besteller</font></font></t d>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Nname_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Nname_ best&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Vorname Besteller</font></font></t d>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Vorname_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Vornam e_best&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Strasse Besteller</font></font></t d>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Strasse_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Strass e_best&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Postfach Besteller</font></font></t d>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Postfach_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Postfa ch_best&"" ) %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">PLZ Besteller </font> </font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_PLZ_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_PLZ_be st&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Ort Besteller </font> </font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Ort_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Ort_be st&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Telefon Besteller</font></font></t d>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Telefon_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Telefo n_best&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Fax Besteller </font></font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Fax_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Fax_be st&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Land Besteller </font></font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Land_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Land_b est&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Email Besteller </font></font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Email_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Email_ best&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Anrede Rechungsempf.</font> </font></t d>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Anrede_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Anrede _re&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Firma Rechnungsempf</font></font ></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Firma_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Firma_ re&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Nachname Rechnungsem.</font></font> </td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Nname_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Nname_ re&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Vorname Rechnungsempf</font></font ></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Vorname_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Vornam e_re&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Strasse Rechnungsempf.</font></fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Strasse_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Strass e_re&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Postfach Rechnungsempf</font></font ></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Postfach_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Postfa ch_re&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">PLZ Rechnungsempf.</font></fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_PLZ_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_PLZ_re &"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Ort Rechnungsempf.</font></fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Ort_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Ort_re &"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Telefon Rechnungsempf</font></font ></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Telefon_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Telefo n_re&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Fax Rechnungsempf.</font></fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Fax_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Fax_re &"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Land Rechnungsempf.</font></fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Land_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Land_r e&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Email Rechnungsempf.</font></fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Email_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Email_ re&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Anrede Tech. Kontakt</font> </font ></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Anrede_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Anrede _tec&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Firma </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font > </f ont></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Firma_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Firma_ tec&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Nachname <font color="#FFFFFF">Tech. Kontakt</font></font></fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Nname_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Nname_ tec&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Vorname </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font></font></fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Vorname_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Vornam e_tec&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Strasse </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font ></font></ td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Strasse_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Strass e_tec&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Postfach </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font></font></fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Postfach_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Postfa ch_tec&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">PLZ </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font ></font></ td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_PLZ_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_PLZ_te c&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Ort </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font > </f ont></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Ort_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Ort_te c&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Telefon </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font ></font></ td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Telefon_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Telefo n_tec&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Fax </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font ></font></ td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Fax_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Fax_te c&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Land </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font></font></fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Land_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Land_t ec&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Email </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font > </f ont></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Email_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Email_ tec&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Kontrollie rt</font>& nbsp;</fon t></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="radio" name="x_Kontrolliert"<% If x_Kontrolliert = True Then %> checked<% End If %> value="1"><%= "Ja" %><input type="radio" name="x_Kontrolliert"<% If x_Kontrolliert = False Then %> checked<% End If %> value="0"><%= "Nein" %></font> </td>
</tr>
<tr>
<td bgcolor="#CC66FF"><font color="#FFFFFF"><font class="formtag">erfasst durch</font> </font>< /td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_erfasst_durch" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_erfass t_durch&"" ) %>"></font> </td>
</tr>
<tr>
<td bgcolor="#009966"><font color="#FFFFFF"><font class="formtag">MXrecord</ font>  ;</font></ td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_MXrecord" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_MXreco rd&"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#660066"><font color="#FFFFFF"><font class="formtag">Survey</fo nt> < /font></td >
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Survey" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Survey &"") %>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">sperrdatum </font>&nb sp;</font> </td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_sperrdatum" value="<%= Server.HTMLEncode(x_sperrd atum&"") %>"></font> </td>
</tr>
</table>
<p>
<input type="submit" name="Action" value="Bearbeiten">
</form>
<!--#include file="footer.asp"-->
-------------------------- ---------- ---------- ---------- ----
but how can prevent some fields from updating
which means, if i set the value "gesperrt" to True, all other fields (especially x_FK_ID_Server and x_Service) shoud be untouched
at moment if i update the record it will then delete the content of the FK_ID_Server and Service Fields in the MS SQL DB
many thanks for your help
best regards
E.Altherr
Â
Â
I use the code below (asp Page) to update records in our customer DB
--------------------------
<%@ codepage = 1250 LCID = 2055 Â %>
<% If Session("project6_status")
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->
<!--#include file="aspmkrfn.asp"-->
<%
Response.Buffer = True
key = Request.Querystring("key")
If key = ""Â Or IsNull(key) Then key = Request.Form("key")
If key = ""Â Or IsNull(key) Then Response.Redirect "Kundenlist.asp"
' Get action
a = Request.Form("a")
If a = ""Â Or IsNull(a) Then
  a = "I"   ' Display with input box
End If
' Get fields from form
x_ID = Request.Form("x_ID")
x_Domain = Request.Form("x_Domain")
x_TLD = Request.Form("x_TLD")
x_LoginName = Request.Form("x_LoginName"
x_Passwort = Request.Form("x_Passwort")
x_Service = Request.Form("x_Service")
x_Kundennummer = Request.Form("x_Kundennumm
x_FK_ID_Server = Request.Form("x_FK_ID_Serv
x_Erfasst_am = Request.Form("x_Erfasst_am
x_gesperrt = Request.Form("x_gesperrt")
x_Bemerkungen = Request.Form("x_Bemerkunge
x_alte_infos = Request.Form("x_alte_infos
x_alg_infos = Request.Form("x_alg_infos"
x_best_anm = Request.Form("x_best_anm")
x_Reseller = Request.Form("x_Reseller")
x_Reseller_nummer = Request.Form("x_Reseller_n
x_Anrede_best = Request.Form("x_Anrede_bes
x_Firma_best = Request.Form("x_Firma_best
x_Nname_best = Request.Form("x_Nname_best
x_Vorname_best = Request.Form("x_Vorname_be
x_Strasse_best = Request.Form("x_Strasse_be
x_Postfach_best = Request.Form("x_Postfach_b
x_PLZ_best = Request.Form("x_PLZ_best")
x_Ort_best = Request.Form("x_Ort_best")
x_Telefon_best = Request.Form("x_Telefon_be
x_Fax_best = Request.Form("x_Fax_best")
x_Land_best = Request.Form("x_Land_best"
x_Email_best = Request.Form("x_Email_best
x_Anrede_re = Request.Form("x_Anrede_re"
x_Firma_re = Request.Form("x_Firma_re")
x_Nname_re = Request.Form("x_Nname_re")
x_Vorname_re = Request.Form("x_Vorname_re
x_Strasse_re = Request.Form("x_Strasse_re
x_Postfach_re = Request.Form("x_Postfach_r
x_PLZ_re = Request.Form("x_PLZ_re")
x_Ort_re = Request.Form("x_Ort_re")
x_Telefon_re = Request.Form("x_Telefon_re
x_Fax_re = Request.Form("x_Fax_re")
x_Land_re = Request.Form("x_Land_re")
x_Email_re = Request.Form("x_Email_re")
x_Anrede_tec = Request.Form("x_Anrede_tec
x_Firma_tec = Request.Form("x_Firma_tec"
x_Nname_tec = Request.Form("x_Nname_tec"
x_Vorname_tec = Request.Form("x_Vorname_te
x_Strasse_tec = Request.Form("x_Strasse_te
x_Postfach_tec = Request.Form("x_Postfach_t
x_PLZ_tec = Request.Form("x_PLZ_tec")
x_Ort_tec = Request.Form("x_Ort_tec")
x_Telefon_tec = Request.Form("x_Telefon_te
x_Fax_tec = Request.Form("x_Fax_tec")
x_Land_tec = Request.Form("x_Land_tec")
x_Email_tec = Request.Form("x_Email_tec"
x_Kontrolliert = Request.Form("x_Kontrollie
x_erfasst_durch = Request.Form("x_erfasst_du
x_MXrecord = Request.Form("x_MXrecord")
x_Survey = Request.Form("x_Survey")
x_sperrdatum = Request.Form("x_sperrdatum
' Open Connection to the database
Set conn = Server.CreateObject("ADODB
conn.Open xDb_Conn_Str
Select Case a
  Case "I": ' Get a record to display
    tkey = "" & key & ""
    strsql = "SELECT * FROM [Kunden] WHERE [ID]=" & tkey
    Set rs = Server.CreateObject("ADODB
    rs.Open strsql, conn
    If rs.Eof Then
      Response.Clear
      Response.Redirect "Kundenlist.asp"
    Else
      rs.MoveFirst
    End If
    ' Get the field contents
    x_ID = rs("ID")
    x_Domain = rs("Domain")
    x_TLD = rs("TLD")
    x_LoginName = rs("LoginName")
    x_Passwort = rs("Passwort")
    x_Service = rs("Service")
    x_Kundennummer = rs("Kundennummer")
    x_FK_ID_Server = rs("FK_ID_Server")
    x_Erfasst_am = rs("Erfasst_am")
    x_gesperrt = rs("gesperrt")
    x_Bemerkungen = rs("Bemerkungen")
    x_alte_infos = rs("alte_infos")
    x_alg_infos = rs("alg_infos")
    x_best_anm = rs("best_anm")
    x_Reseller = rs("Reseller")
    x_Reseller_nummer = rs("Reseller_nummer")
    x_Anrede_best = rs("Anrede_best")
    x_Firma_best = rs("Firma_best")
    x_Nname_best = rs("Nname_best")
    x_Vorname_best = rs("Vorname_best")
    x_Strasse_best = rs("Strasse_best")
    x_Postfach_best = rs("Postfach_best")
    x_PLZ_best = rs("PLZ_best")
    x_Ort_best = rs("Ort_best")
    x_Telefon_best = rs("Telefon_best")
    x_Fax_best = rs("Fax_best")
    x_Land_best = rs("Land_best")
    x_Email_best = rs("Email_best")
    x_Anrede_re = rs("Anrede_re")
    x_Firma_re = rs("Firma_re")
    x_Nname_re = rs("Nname_re")
    x_Vorname_re = rs("Vorname_re")
    x_Strasse_re = rs("Strasse_re")
    x_Postfach_re = rs("Postfach_re")
    x_PLZ_re = rs("PLZ_re")
    x_Ort_re = rs("Ort_re")
    x_Telefon_re = rs("Telefon_re")
    x_Fax_re = rs("Fax_re")
    x_Land_re = rs("Land_re")
    x_Email_re = rs("Email_re")
    x_Anrede_tec = rs("Anrede_tec")
    x_Firma_tec = rs("Firma_tec")
    x_Nname_tec = rs("Nname_tec")
    x_Vorname_tec = rs("Vorname_tec")
    x_Strasse_tec = rs("Strasse_tec")
    x_Postfach_tec = rs("Postfach_tec")
    x_PLZ_tec = rs("PLZ_tec")
    x_Ort_tec = rs("Ort_tec")
    x_Telefon_tec = rs("Telefon_tec")
    x_Fax_tec = rs("Fax_tec")
    x_Land_tec = rs("Land_tec")
    x_Email_tec = rs("Email_tec")
    x_Kontrolliert = rs("Kontrolliert")
    x_erfasst_durch = rs("erfasst_durch")
    x_MXrecord = rs("MXrecord")
    x_Survey = rs("Survey")
    x_sperrdatum = rs("sperrdatum")
    rs.Close
    Set rs = Nothing
  Case "U": ' Update
 Â
    ' Open record
    tkey = "" & key & ""
    strsql = "SELECT * FROM [Kunden] WHERE [ID]=" & tkey
    Set rs = Server.CreateObject("ADODB
    rs.Open strsql, conn, 1, 2
    If rs.Eof Then
      Response.Clear
      Response.Redirect "Kundenlist.asp"
    End If
    tmpFld = x_ID
    If Not IsNumeric(tmpFld) Then tmpFld = 0
    rs("ID") = CLng(tmpFld)
    tmpFld = Trim(x_Domain)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Domain") = tmpFld
    tmpFld = Trim(x_TLD)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("TLD") = tmpFld
    tmpFld = Trim(x_LoginName)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("LoginName") = tmpFld
    tmpFld = Trim(x_Passwort)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Passwort") = tmpFld
    tmpFld = Trim(x_Service)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Service") = tmpFld
    tmpFld = Trim(x_Kundennummer)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Kundennummer") = tmpFld
    tmpFld = Trim(x_FK_ID_Server)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("FK_ID_Server") = tmpFld
    tmpFld = x_Erfasst_am
    If Not IsNumeric(tmpFld) Then tmpFld = 0
    rs("Erfasst_am") = CLng(tmpFld)
    tmpFld = x_gesperrt
    If tmpFld = "1" Then
      rs("gesperrt") = True
    Else
      rs("gesperrt") = False
    End If
    tmpFld = Trim(x_Bemerkungen)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Bemerkungen") = tmpFld
    tmpFld = Trim(x_alte_infos)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("alte_infos") = tmpFld
    tmpFld = Trim(x_alg_infos)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("alg_infos") = tmpFld
    tmpFld = Trim(x_best_anm)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("best_anm") = tmpFld
    tmpFld = x_Reseller
    If tmpFld = "1" Then
      rs("Reseller") = True
    Else
      rs("Reseller") = False
    End If
    tmpFld = Trim(x_Reseller_nummer)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Reseller_nummer") = tmpFld
    tmpFld = Trim(x_Anrede_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Anrede_best") = tmpFld
    tmpFld = Trim(x_Firma_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Firma_best") = tmpFld
    tmpFld = Trim(x_Nname_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Nname_best") = tmpFld
    tmpFld = Trim(x_Vorname_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Vorname_best") = tmpFld
    tmpFld = Trim(x_Strasse_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Strasse_best") = tmpFld
    tmpFld = Trim(x_Postfach_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Postfach_best") = tmpFld
    tmpFld = Trim(x_PLZ_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("PLZ_best") = tmpFld
    tmpFld = Trim(x_Ort_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Ort_best") = tmpFld
    tmpFld = Trim(x_Telefon_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Telefon_best") = tmpFld
    tmpFld = Trim(x_Fax_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Fax_best") = tmpFld
    tmpFld = Trim(x_Land_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Land_best") = tmpFld
    tmpFld = Trim(x_Email_best)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Email_best") = tmpFld
    tmpFld = Trim(x_Anrede_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Anrede_re") = tmpFld
    tmpFld = Trim(x_Firma_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Firma_re") = tmpFld
    tmpFld = Trim(x_Nname_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Nname_re") = tmpFld
    tmpFld = Trim(x_Vorname_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Vorname_re") = tmpFld
    tmpFld = Trim(x_Strasse_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Strasse_re") = tmpFld
    tmpFld = Trim(x_Postfach_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Postfach_re") = tmpFld
    tmpFld = Trim(x_PLZ_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("PLZ_re") = tmpFld
    tmpFld = Trim(x_Ort_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Ort_re") = tmpFld
    tmpFld = Trim(x_Telefon_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Telefon_re") = tmpFld
    tmpFld = Trim(x_Fax_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Fax_re") = tmpFld
    tmpFld = Trim(x_Land_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Land_re") = tmpFld
    tmpFld = Trim(x_Email_re)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Email_re") = tmpFld
    tmpFld = Trim(x_Anrede_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Anrede_tec") = tmpFld
    tmpFld = Trim(x_Firma_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Firma_tec") = tmpFld
    tmpFld = Trim(x_Nname_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Nname_tec") = tmpFld
    tmpFld = Trim(x_Vorname_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Vorname_tec") = tmpFld
    tmpFld = Trim(x_Strasse_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Strasse_tec") = tmpFld
    tmpFld = Trim(x_Postfach_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Postfach_tec") = tmpFld
    tmpFld = Trim(x_PLZ_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("PLZ_tec") = tmpFld
    tmpFld = Trim(x_Ort_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Ort_tec") = tmpFld
    tmpFld = Trim(x_Telefon_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Telefon_tec") = tmpFld
    tmpFld = Trim(x_Fax_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Fax_tec") = tmpFld
    tmpFld = Trim(x_Land_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Land_tec") = tmpFld
    tmpFld = Trim(x_Email_tec)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Email_tec") = tmpFld
    tmpFld = x_Kontrolliert
    If tmpFld = "1" Then
      rs("Kontrolliert") = True
    Else
      rs("Kontrolliert") = False
    End If
    tmpFld = Trim(x_erfasst_durch)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("erfasst_durch") = tmpFld
    tmpFld = Trim(x_MXrecord)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("MXrecord") = tmpFld
    tmpFld = Trim(x_Survey)
    If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
    rs("Survey") = tmpFld
    tmpFld = x_sperrdatum
    If IsDate(tmpFld) Then
      rs("sperrdatum") = CDate(tmpFld)
    Else
      rs("sperrdatum") = Null
    End If
    rs.Update
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
   Â
    If x_gesperrt THEN
    myNewDateTime = NOW ()
    tkey = "" & key & ""
    updatesql = "UPDATE [Kunden] SET sperrdatum ='" & myNewDateTime & "' WHERE [ID]=" & tkey
    Set conn = Server.CreateObject("ADODB
    Set rs = Server.CreateObject("ADODB
    conn.Open xDb_Conn_Str
    conn.execute(updatesql)
    conn.close
    Set conn = Nothing
    End If
       Â
    Response.Clear
    Response.Redirect "Kundenlist.asp"
End Select
%>
<!--#include file="header.asp"-->
<p><font class="formtag">Kunden Eintrag bearbeiten<br>
  <br>
  <a href="Kundenlist.asp">Zuru
<script language="JavaScript" src="ew.js"></script>
<script language="JavaScript">
<!-- start Javascript
function  EW_checkMyForm(EW_this) {
if (EW_this.x_ID &&Â !EW_checkinteger(EW_this.x
    if (!EW_onError(EW_this, EW_this.x_ID, "TEXT", "Incorrect integer - ID"))
      return false;
    }
if (EW_this.x_Erfasst_am &&Â !EW_checkinteger(EW_this.x
    if (!EW_onError(EW_this, EW_this.x_Erfasst_am, "TEXT", "Incorrect integer - Erfasst am"))
      return false;
    }
return true;
}
// end JavaScript -->
</script>
<form onSubmit="return EW_checkMyForm(this);" Â action="Kundenedit.asp" method="post">
<p>
<input type="hidden" name="a" value="U">
<input type="hidden" name="key" value="<%= key %>">
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#CCCCCC">
<tr>
<td width="104" bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">ID</font>&
<td width="477" bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_ID" size="30" value="<%= Server.HTMLEncode(x_ID&"")
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Domain</fo
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Domain" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Domain
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">TLD</font>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_TLD" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_TLD&""
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Login Name</font> </font></
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_LoginName" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_LoginN
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Passwort</
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Passwort" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Passwo
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Service</f
<td bgcolor="#F5F5F5"><select name="x_Service" id="x_Service">
 <option value="Domain Parking 1 MB">Domain Parking 1 MB</option>
 <option value="Startup Paket 50 MB">Startup Paket 50 MB</option>
 <option value="Mini Paket 250 MB">Mini Paket 250 MB</option>
 <option value="Power Paket 300 MB">Power Paket 300 MB</option>
 <option value="Medium Paket 400 MB">Medium Paket 400 MB</option>
 <option value="Premium Paket 650 MB">Premium Paket 650 MB</option>
 <option value="Special Paket 1000 MB">Special Paket 1000 MB</option>
 <option value="Mailhost 10">Mailhost 10 </option>
 <option value="Mailhost 20">Mailhost 20</option>
 <option value="Mailhost 50">Mailhost 50</option>
 <option value="Mailhost 80">Mailhost 80</option>
 <option value="Mailhost 100">Mailhost 100</option>
 <option value="Housing">Housing</o
</select> Â </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Kundennumm
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Kundennummer" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Kunden
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">FK ID Server</font> </font>
<td bgcolor="#F5F5F5"><font class="formtag"><% If Session("Kunden_masterkey"
x_FK_ID_Server = Session("Kunden_masterkey"
<% Response.Write x_FK_ID_Server %><input type="hidden" name="x_FK_ID_Server" value="<%= x_FK_ID_Server %>">
<% Else %>
<select name="x_FK_ID_Server" id="x_FK_ID_Server">
 <option value="web001.webspace4you
 <option value="web002.webspace4you
 <option value="web003.webspace4you
 <option value="web004.webspace4you
 <option value="web005.webspace4you
 <option value="web011.webspace4you
 <option value="web012.webspace4you
 <option value="web013.webspace4you
 <option value="web014.webspace4you
 <option value="web015.webspace4you
 <option value="web016.webspace4you
 <option value="Housing">Housing</o
</select>
<% End If %>
</font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Erfasst am</font> </font></td
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Erfasst_am" size="30" value="<%= Server.HTMLEncode(x_Erfass
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">gesperrt</
<td bgcolor="#F5F5F5"><font class="formtag"><input type="radio" name="x_gesperrt"<% If x_gesperrt = True Then %> checked<% End If %> value="1"><%= "Ja" %><input type="radio" name="x_gesperrt"<% If x_gesperrt = False Then %> checked<% End If %> value="0"><%= "Nein" %></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Bemerkunge
<td bgcolor="#F5F5F5"><font class="formtag"><textarea cols=35 rows=4 name="x_Bemerkungen"><%= x_Bemerkungen %></textarea></font>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">alte infos</font> </font><
<td bgcolor="#F5F5F5"><font class="formtag"><textarea cols=35 rows=4 name="x_alte_infos"><%= x_alte_infos %></textarea></font>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">alg infos</font> </font><
<td bgcolor="#F5F5F5"><font class="formtag"><textarea cols=35 rows=4 name="x_alg_infos"><%= x_alg_infos %></textarea></font>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">best anm</font> </font></t
<td bgcolor="#F5F5F5"><font class="formtag"><textarea cols=35 rows=4 name="x_best_anm"><%= x_best_anm %></textarea></font>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Reseller</
<td bgcolor="#F5F5F5"><font class="formtag"><input type="radio" name="x_Reseller"<% If x_Reseller = True Then %> checked<% End If %> value="1"><%= "Ja" %><input type="radio" name="x_Reseller"<% If x_Reseller = False Then %> checked<% End If %> value="0"><%= "Nein" %></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Reseller nummer</font> </font>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Reseller_nummer" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Resell
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Anrede Besteller </font></font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Anrede_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Anrede
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Firma Besteller </font></font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Firma_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Firma_
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Nachname Besteller</font></font></t
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Nname_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Nname_
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Vorname Besteller</font></font></t
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Vorname_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Vornam
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Strasse Besteller</font></font></t
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Strasse_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Strass
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Postfach Besteller</font></font></t
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Postfach_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Postfa
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">PLZ Besteller </font> </font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_PLZ_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_PLZ_be
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Ort Besteller </font> </font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Ort_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Ort_be
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Telefon Besteller</font></font></t
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Telefon_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Telefo
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Fax Besteller </font></font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Fax_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Fax_be
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Land Besteller </font></font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Land_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Land_b
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Email Besteller </font></font></td>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Email_best" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Email_
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Anrede Rechungsempf.</font>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Anrede_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Anrede
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Firma Rechnungsempf</font></font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Firma_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Firma_
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Nachname Rechnungsem.</font></font>
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Nname_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Nname_
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Vorname Rechnungsempf</font></font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Vorname_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Vornam
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Strasse Rechnungsempf.</font></fon
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Strasse_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Strass
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Postfach Rechnungsempf</font></font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Postfach_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Postfa
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">PLZ Rechnungsempf.</font></fon
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_PLZ_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_PLZ_re
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Ort Rechnungsempf.</font></fon
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Ort_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Ort_re
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Telefon Rechnungsempf</font></font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Telefon_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Telefo
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Fax Rechnungsempf.</font></fon
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Fax_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Fax_re
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Land Rechnungsempf.</font></fon
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Land_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Land_r
</tr>
<tr>
<td bgcolor="#0033FF"><font color="#FFFFFF"><font class="formtag">Email Rechnungsempf.</font></fon
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Email_re" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Email_
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Anrede Tech. Kontakt</font> </font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Anrede_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Anrede
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Firma </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Firma_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Firma_
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Nachname <font color="#FFFFFF">Tech. Kontakt</font></font></fon
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Nname_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Nname_
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Vorname </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font></font></fon
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Vorname_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Vornam
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Strasse </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Strasse_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Strass
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Postfach </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font></font></fon
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Postfach_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Postfa
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">PLZ </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_PLZ_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_PLZ_te
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Ort </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Ort_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Ort_te
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Telefon </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Telefon_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Telefo
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Fax </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Fax_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Fax_te
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Land </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font></font></fon
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Land_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Land_t
</tr>
<tr>
<td bgcolor="#66CCFF"><font color="#FFFFFF"><font class="formtag">Email </font><font color="#FFFFFF"><font class="formtag">Tech. Kontakt</font> </font
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Email_tec" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Email_
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">Kontrollie
<td bgcolor="#F5F5F5"><font class="formtag"><input type="radio" name="x_Kontrolliert"<% If x_Kontrolliert = True Then %> checked<% End If %> value="1"><%= "Ja" %><input type="radio" name="x_Kontrolliert"<% If x_Kontrolliert = False Then %> checked<% End If %> value="0"><%= "Nein" %></font> </td>
</tr>
<tr>
<td bgcolor="#CC66FF"><font color="#FFFFFF"><font class="formtag">erfasst durch</font> </font><
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_erfasst_durch" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_erfass
</tr>
<tr>
<td bgcolor="#009966"><font color="#FFFFFF"><font class="formtag">MXrecord</
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_MXrecord" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_MXreco
</tr>
<tr>
<td bgcolor="#660066"><font color="#FFFFFF"><font class="formtag">Survey</fo
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_Survey" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_Survey
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font class="formtag">sperrdatum
<td bgcolor="#F5F5F5"><font class="formtag"><input type="text" name="x_sperrdatum" value="<%= Server.HTMLEncode(x_sperrd
</tr>
</table>
<p>
<input type="submit" name="Action" value="Bearbeiten">
</form>
<!--#include file="footer.asp"-->
--------------------------
but how can prevent some fields from updating
which means, if i set the value "gesperrt" to True, all other fields (especially x_FK_ID_Server and x_Service) shoud be untouched
at moment if i update the record it will then delete the content of the FK_ID_Server and Service Fields in the MS SQL DB
many thanks for your help
best regards
E.Altherr
Â
Â
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
hi
i found the solution:
the problem was the following:
action="Kundensperren.asp" method="post">
this action was set to "Kundenedit.asp method =" post"> instead to the above string, so the system calls the wrong page to update the records
the devil often lies in the detail *** grins ***
thanks anyway for your help
best regards
E.Altherr
i found the solution:
the problem was the following:
action="Kundensperren.asp"
this action was set to "Kundenedit.asp method =" post"> instead to the above string, so the system calls the wrong page to update the records
the devil often lies in the detail *** grins ***
thanks anyway for your help
best regards
E.Altherr
ASKER
or reverse?