8 svar · 405 visningar · startad av Fenmund
Hejsan!
Jag har en "Tipsa en kompis" funktion på min sida men får den inte att fungera.
Jag tror att det är fel på javascript:popUp() men har kollat och kollat men hittar inget fel.
Skulle verkligen uppskatta om någon kunnig känner för att ta en snabb titt på sidan och se om ni hittar nåt fel.
Adressen till sidan är http://klicka.tvattkorgen.se
Tack på förhand! :birp
Fönstret öppnas ju som det ska! Så här står det i popup-fönstret:
Sun ONE ASP VBScript compilation (0x800A0438)
Unexpected end of line inside a string
/tipsa_klicka.asp, line 38, column 74
Skumt,
jag får också upp fönstret som det ska men tipsa_klicka.asp, alltså sidan som ska visas dyker inte upp.....
Nej, eftersom det är ett fel i den sidan fungerar det inte. Rätta till ASP-felet så fungerar det nog bättre.
Här é ASP koden...den har fungerat förut så jag förstår inte varför det inte skulle fungera nu...
Tack för hjälpen!
<%
If Request.QueryString = "" Then
Response.Redirect("?do=form")
End If
If Request.QueryString("do") = "form" Then
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Tipsa en kompis!</title>
</head>
<body bgcolor="#000000">
<form action="tipsa_klicka.asp?do=send" method="post">
<input type="text" name="frane" size="20" value="Din e-post adress"><br>
<input type="text" name="frann" size="20" value="Ditt namn"><p>
<input type="text" name="tille" size="20" value="Mottagarens e-post"><br>
<input type="text" name="tilln" size="20" value="Mottagarens namn"><br>
<input type="submit" value="Skicka mail">
</form><p>
<% =Session("skickat") %>
<p align="right"> </p>
</body>
</html>
<%
ElseIf Request.QueryString("do") = "send" Then
Dim objMail, strBody
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = Request.Form("frane")
objMail.To = Request.Form("tille")
objMail.Subject = "Tips om en sida"
strBody = "Hej " & Request.Form("tilln") & vbCrLf & vbCrLf & "" &_
" Din kompis " & Request.Form("frann") & " vill tipsa " &_
"dig om Klicka! på adressen [url]http://klicka.tvattkorgen.se.[/url] Ha det så kul!
objMail.Body = strBody
objMail.Send
Set objMail = Nothing
Session("skickat") = "Mailet skickades till din kompis."
Response.Redirect("?do=form")
End If
%>
Du saknar ett citationstecken efter Ha det så kul!. Jag antar att det är rad 38?
Vassego :)
Tråden flyttas till ASP, VBScript.