<% Dim objConn Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;"_ &"DATABASE=shamnskate_se;UID=shamnskate_se;PWD=XfonXfon1;" objConn.Open objRS.Open "SELECT * FROM medlemsregister WHERE Titel<>'Medlem'", objConn, 3,3 response.write("

") int count=0 Do until objRS.EOF if count = 3 then response.write("

") response.write("" & objRS("Titel") & " " & "Namn: " & objRS("Namn") & " ") response.write("Telefon: " & objRS("Telefon") & " " & "Mobil: " & objRS("Mobil") & " ") response.write("Email: " & "" & objrs("Email") & " ") response.write(" ") objRS.movenext count = count + 1 Loop response.write("

") objRS.close set objRS=nothing objconn.close set objConn=nothing %>