<%@ LANGUAGE="VBSCRIPT" %> <% ID = Request.Querystring("ID") %> <% RCOUNT = Request.Querystring("RCOUNT") %> <% SORT = Request.Querystring("SORT") %>

Kontakt-Daten ändern

<% Set ConnGuestBook = Server.CreateObject("ADODB.Connection") ConnGuestBook.ConnectionTimeout = Session("ConnGuestBook_ConnectionTimeout") ConnGuestBook.CommandTimeout = Session("ConnGuestBook_CommandTimeout") ConnGuestBook.Open Session("ConnGuestBook_ConnectionString4"), Session("ConnGuestBook_RuntimeUserName"), Session("ConnGuestBook_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set CmdEditInfo = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT BOOK.* FROM BOOK WHERE (ID = " & ID & ")" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = ConnGuestBook CmdEditInfo.Open cmdTemp, , 0, 1 %>
Wiedervorlage: " size=50>
Für Firma: " size=50>
Emailadresse: " size=50>
Ansprechpartner: " size=50>
Function: " size=10>
Straße: " size=50>
Ort: " size=50>
Land: " size=50>
Telefon-Nummer: " size=50>
Fax-Nummer: " size=50>
Anzahl Mitarbeiter : " size=20>
Homepage: " size=20>
Unt.-Art (SN) " size=50>
User (ID) " size=50>
Pass " size=50>

Memo:

Für Händler:		" size=50>