<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = "True" %> <% ART = Request.Querystring("ART") %> <% Session("ConnGuestBook_ConnectionString4") = "DBQ=" & Server.Mappath("..\..\_database\kontakt1.mdb") & ";DefaultDir=" & Server.Mappath("..\..\_database") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" Session("ConnGuestBook_ConnectionTimeout") = 15 Session("ConnGuestBook_CommandTimeout") = 30 Session("ConnGuestBook_RuntimeUserName") = "admin" Session("ConnGuestBook_RuntimePassword") = "" %> <% 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 IP_ADDRESS<>'Erledigt' order by datum desc" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = ConnGuestBook CmdEditInfo.Open cmdTemp, , 1, 3 %> <% response.contenttype="text/plain" while not Cmdeditinfo.eof knum=knum+1 message = CmdEditInfo.Fields("message") if message<>nil then message = CStr(Replace(message,chr(13),"\r")) if message<>nil then message = CStr(Replace(message,chr(10),"\n")) if message<>nil then message = CStr(Replace(message,"","")) if message<>nil then message = CStr(Replace(message,"
","\r\n")) //response.Write(knum & ";" & CmdEditInfo.Fields("name") & ";0;" & CmdEditInfo.Fields("strasse") & ";" & CmdEditInfo.Fields("ort") & ";" & CmdEditInfo.Fields("name") & ";" & CmdEditInfo.Fields("apartner")& ";" & CmdEditInfo.Fields("ort") & ";0;" & CmdEditInfo.Fields("Fax") & ";" & CmdEditInfo.Fields("Tel") & ";" &CmdEditInfo.Fields("Email") & ";" & CmdEditInfo.Fields("homepage") & ";" & message & ";I;"& CmdEditInfo.Fields("firma") &";;" & chr(13) & chr(10) ) response.Write("0;" & CmdEditInfo.Fields("firma")& ";;" & CmdEditInfo.Fields("name") & ";;" & CmdEditInfo.Fields("EMAIL") & ";" & CmdEditInfo.Fields("TEL") & ";" & CmdEditInfo.Fields("FAX") & ";" & CmdEditInfo.Fields("STRASSE")& ";" & CmdEditInfo.Fields("ort") & ";" & CmdEditInfo.Fields("ort") & ";;;" & CmdEditInfo.Fields("homepage") & ";" & message & ";;;;;;;;;;" & ";" & chr(13) & chr(10) ) CmdEditInfo.MoveNext wend Response.end %>