webForumDet fria alternativet

javascript:popUp()

ASP

8 svar · 405 visningar · startad av Fenmund

Medlem sedan maj 200441 inlägg
Frågan#1

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

Medlem sedan juni 200032 967 inlägg
#2

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

Medlem sedan maj 200441 inlägg
#3

Skumt,
jag får också upp fönstret som det ska men tipsa_klicka.asp, alltså sidan som ska visas dyker inte upp.....

Medlem sedan juni 200032 967 inlägg
#4

Nej, eftersom det är ett fel i den sidan fungerar det inte. Rätta till ASP-felet så fungerar det nog bättre.

Medlem sedan maj 200441 inlägg
#5

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">&nbsp;</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
%>
Medlem sedan juni 200032 967 inlägg
#6

Du saknar ett citationstecken efter Ha det så kul!. Jag antar att det är rad 38?

Medlem sedan maj 200441 inlägg
#7

Tack för hjälpen @nders!

Kungligt!!!

Medlem sedan juni 200032 967 inlägg
#8

Vassego :)

Medlem sedan juni 20004 308 inlägg
#9

Tråden flyttas till ASP, VBScript.

258 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)