<% sql="select * from inloggning" set rs=dbas.execute(sql) if not rs.eof then rubrik=rs("rubrik") textstycke=rs("textstycke") textstycke=geturl(textstycke) textstycke=radbryt(textstycke) mobil=rs("mobil") epost=rs("epost") telefon=rs("telefon") postnrort=rs("postnrort") adress=rs("adress") Anvandare=rs("Anvandare") rs.close set rs=nothing end if %>
<%if rubrik <> "" then%> <%=rubrik%> <%end if%> <%if textstycke <> "" then%>



<%=textstycke%> <%end if%>



<%if Anvandare <> "" then %> <%=Anvandare%>
<%end if%> <%if adress <> "" then%> <%=adress%>
<%end if%> <%if postnrort <> "" then%> <%=postnrort%>
<%end if%>
<%if telefon <> "" then%> Telefon: <%=telefon%>
<%end if%> <%if mobil <> "" then%> Mobil: <%=mobil%>
<%end if%>
<%if epost <> "" then%> E-post: <%=epost%>
<%end if%>




Kontaktformulär

<% if safesql(request.form("epost")) <> "" then meddelande=safesql(request.form("meddelande")) avsandare=safesql(request.form("namn2")) epost=safesql(request.form("epost")) telefon=safesql(request.form("telefon")) meddelande = meddelande & vbcrlf & vbcrlf & "Avsändare: " & avsandare & vbcrlf & vbcrlf & "E-post: " & epost & vbcrlf & vbcrlf & "Telefon: " & telefon Set msg = Server.CreateObject("Persits.MailSender") msg.Host="localhost" 'msg.Port=25 'msg.Logging=true msg.From=epost msg.FromName=avsandare msg.AddAddress "medinsmaskin@hotmail.com" msg.Subject="Meddelande via hemsidan" msg.Body= meddelande On Error Resume Next msg.Send If Err <> 0 Then Response.Write "Ett fel uppstod: " & Err.Description else %> Tack för Ditt meddelande!

<% end if end if %>
Ditt namn:



Din e-post adress:



Ditt telefonnummer:
Ditt meddelande:
<%sql="select * from inloggning" set rs=dbas.execute(sql) if not rs.eof then namn2=rs("Anvandare") tel=rs("telefon") epost=rs("epost") adress=rs("adress") postnrort=rs("postnrort") rs.close set rs=nothing end if%>

    <%if namn2 <> "" then%> <%=namn2%>
<%end if%> <%if adress <> "" then%> <%=adress%>
<%end if%> <%if postnrort <> "" then%> <%=postnrort%>
<%end if%>
<%if epost <> "" then%> <%=epost%>
<%end if%>
<%if tel <> "" then%> Tel: <%=tel%>
<%end if%>