<% '* PRESENTERAR INFORMATION OM KUNDEN, SÖKORD, BESKRIVNING '************************************************************** Set objConn = CreateObject("ADODB.Connection") objConn.Open "DSN=KT080128_webman;UID=;pwd=" SQL = "" Set rsKund = CreateObject("ADODB.Recordset") Set rsKund.ActiveConnection = objConn rsKund.Open "SELECT * FROM head" Do While Not rsKund.EOF %> <%= rsKund("title")%> "> "> "> <% rsKund.MoveNext Loop rsKund.close set rsKund = Nothing objConn.close set objConn = Nothing %> <% Set objConn = CreateObject("ADODB.Connection") objConn.Open "DSN=KT080128_webman;UID=;pwd=" SQL = "" Set rsSok = CreateObject("ADODB.Recordset") Set rsSok.ActiveConnection = objConn rsSok.Open "SELECT * FROM tblContact order by contactID" %>

<%= rsSok("name") %>

<%= rsSok("Head") %>
<% Session.LCID = 1053 d=Date() %>
Förnamn *
 
Efternamn *
E-postadress

<%= rsSok("f1_name") %>

<%= rsSok("f1_type") %>

Övrigt

 

<% rsSok.close set rsSok = Nothing objConn.close set objConn = Nothing %>