<%@ Language=VBScript %> <%start 'fontstyle top "" %>

Kontakta oss för intresseanmälan eller mer information:

<% fakturamottagare %>
Bellmansgatan 15 NB
S-118 47 Stockholm
Telefon: 08 642 13 78, 031 46 43 50, 0370 109 30, Mobil:070 750 59 20, Fax: 08 642 80 22
e-mail:info@unatransresor.com <% sub fakturamottagare() Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
Efternamn:
Förnamn:" Response.Write "
Postadress:
Pnr:  Ort:
Telefon: " Response.Write "
E-mail:
" Response.Write "" end sub function citaj(fil) Dim objFSO, objTextFile dim slask slask="" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(Server.MapPath(fil)) Do While Not objTextFile.AtEndOfStream slask=slask & objTextFile.ReadLine & "
" Loop objTextFile.Close Set objTextFile = Nothing Set objFSO = Nothing citaj=slask end function %>