<% response.Charset="ISO-8859-1" Dim nyt(2) sql = "SELECT * FROM sider WHERE a1 = '3'" Set objRS = Conn.Execute(sql) If Not objRS.EOF tHeN nyt(0) = objRS("a2") nyt(1) = objRS("a3") End If objRS.Close Response.write "document.write('" & nyt(0) & "
" & Left(Replace(Replace(nyt(1),Chr(13),""),Chr(10),"
"),56) & "');" & vbcrlf %>