Ædre opstilling af udtræk

Hejsa
Jeg har følgende
<%

set rs = conn.execute("SELECT * FROM private WHERE id = '" & request.cookies("ADM")("id") & "'")

if not rs("tlf") = "" then
  tekst = "Telefonnummer: " & trim(rs("tlf")) & vbcrlf & vbcrlf
else if not rs("mobil") = "" then
  tekst = "Telefonnummer: " & trim(rs("mobil")) & vbcrlf & vbcrlf
end if
end if

tekst = tekst & "Kategori : " & request.form("kategori") & vbcrlf & vbcrlf
tekst = tekst & "Anzahl_der_Erscheinungen: " & request.form("antal_gange") & vbcrlf & vbcrlf

  set rs2 = server.createobject("adodb.recordset")
  sql2 = "SELECT * FROM baade WHERE sagsnr = '" & request("sagsnr") & "';"
  rs2.open sql2, conn, 1, 3
 
val = rs2("Indenbords")
 
  if val = "ON" then
  inorout = "IB"
  else
  inorout = "AB"
  end if
 
    tekst = tekst & "Anzeigentext: " & rs2("modelnavn") & "," &_
    " Baujahr " & rs2("aargang") & ", "
 
  if rs2("loa") <> "" then
    tekst = tekst & rs2("loa")
  else
    tekst = tekst & " - "
  end if
 
  if rs2("bred") <> "" then
    tekst = tekst & " x " & rs2("bred")
  else
    tekst = tekst & " - "
  end if

  if rs2("dybgang") <> "" then
    tekst = tekst & " x " & rs2("dybgang")
  else
    tekst = tekst & " - "
  end if
 
  tekst = tekst & ", " & rs2("deplacement") & " kg, " & inorout & " " & rs2("Motornavn") & ", " & rs2("HK") &" PS " & rs2("fuel") & ", "
 
      tal = 0

    myarray = Split(request("check"), ", ")

    for i = 0 to ubound(myarray)

    text = myarray(tal)

    set rsval = conn.execute("SELECT * FROM addon_plustext WHERE id=" & text)

    text = "" & rsval("de") & ", "

    text1 = text1 + text

    tal = tal+1

    next
 
  tekst = tekst + text1
 
    set rs3 = server.createobject("adodb.recordset")
    sql3 = "SELECT de FROM land WHERE id = " & rs2("landid") & ";"
    rs3.open sql3, conn, 1, 3
   
      tekst = tekst & "Liegt in " & rs3("de") & ", "
      temp = rs3("de")
     
    rs3.close
    set rs3 = nothing
 
  tekst = tekst & "Siehe auch www.scanboat.com, "
 
      set rs_valuta = server.createobject("adodb.recordset")
      sql44 = "SELECT * FROM valuta WHERE id = " & rs2("valuta") & ";"
      rs_valuta.open sql44, conn, 1, 3
     
        if rs_valuta("kort") = "EURO" then
          tekst = tekst & rs2("pris") & " EURO"
        else
          tekst = tekst & formatnumber(rs2("pris")/rs_valuta("omregning"),0) & " EURO"
        end if
     
      rs_valuta.close
      set rs_valuta = nothing
 
  tekst = tekst & vbcrlf & vbcrlf & "Email: " & rs("email") & vbcrlf & vbcrlf
 
    set rs4 = server.createobject("adodb.recordset")
    sql4 = "SELECT de FROM land WHERE id = " & rs("landid") & ";"
    rs4.open sql4, conn, 1, 3

if rs("adr2") = "" then
adr = rs("adr1")
else
adr = rs("adr1") & ", " & ("adr2")
end if

  tekst = tekst & "Name: " & rs("navn") & ", " & adr & " , " & rs("postnr") & " " & rs("bynavn") & ", " & rs4("de")  & " ID: " & request("sagsnr")

conn.execute("INSERT INTO addon_email (MailText,MailType,MailSendt,Category) VALUES ('" & tekst & "',1,0,'" & request.form("kategori") & "');")

conn.execute("INSERT INTO addon_benyttet VALUES ('" & request("sagsnr") & "',2," & month(now) & ",'');")

'response.write tekst

  rs2.close
  set rs2 = nothing

rs.close
set rs = nothing

response.redirect("default.asp?sprog=" & request("sprog") & "&sagsnr=" & request("sagsnr") & "")

%>

Det giver en side som indeholder følgende :
--- snip ---
Telefonnummer: 45 xxxxxxxx

Kategori : 111 Jetski & Zubehör

Anzahl_der_Erscheinungen: 2

Anzeigentext: juniorbåd. KDY, Baujahr 1967, 5,7 x 1,75 x 0,9, 695 kg, AB ,
PS , Holzboot, Guter Zustand, Liegt in Dänemark, Siehe auch
www.site.com, 3.499 EURO

Email: min@mail.dk

Name: mit navn, adresse husnr , postnr by, Dänemark ID: idnr

--- snap ---

Fremover har jeg brug for at få dataene sådan her
--- snip ---
***____________________________________________________

Formularname              " site.com "
Telefonnummer              "+45 xxxxxxxx "
Anzeige                    " biete "
Anzahl_der_Erscheinungen  " 2X "
Kategorie                  " 111"
Anzeigentext
"juniorbåd. KDY, Baujahr 1967, 5,7 x 1,75 x 0,9, 695 kg, AB , PS , Holzboot,
Guter Zustand, Liegt in Dänemark *via www.site.com , EUR 3.499 "



Anzeigentext2              " "
Kontoinhaber              " "
Kontonummer                " "
Blz                        " "
Bank                      " "
Name                      " "
Ort                        " "
Plz                        " "
Telefon_tagsueber          "  "
Email                      " min@mail.dk"
--- snap ---

Nogen der kan / vil hjælpe med disse rettelser - skal lige siges jeg har IKKE den store forstand på ASP endnu, så derfor det høje point antal!