Notifikationer

Markér alle som læst Log ud

peterkopi Nybegynder

12. november 2002 - 11:33 Der er 23 kommentarer og
3 løsninger

Unterminated string constant - Problem med sendnyhed.asp

Fra mine nyheder (http://www.peterogdeandrekopier.dk/news/nyheder.asp) vil jeg kunne tilbyde brugere/gæster at kunne sende en valgt nyhed til en ven via siden http://www.peterogdeandrekopier.dk/news/sendnyhed.asp

På ../nyheder.asp skal man kunne klikke på nyheden (se spm http://www.eksperten.dk/spm/282311, Kommentar: peterkopi
12/11-2002 09:36:21) som så føres over til ../sendnyhed.asp

***************************************
Lige nu får jeg for det første en fejl:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/news/sendnyhed.asp, line 38

JMail.Body= JMail.Body + "Du kan læse hele artiklen på http://www.PeterOgDeAndreKopier.dk/news/nyheder.asp?nyhedsid"& nyheder & "Håber vi ses," & vbCrLf & afsender &"
----------------------------------------------------------------------------------------------------------------------------------------------------------------------^

***************************************

- men jeg ved heller ikke, hvordan jeg skal linke tingene sammen: Fra "Send denne nyhed til en ven!" til http://www.peterogdeandrekopier.dk/news/sendnyhed.asp ?????

Afsætter gerne flere point, hvis nogen kan få det her op at køre!

Synes godt om

peterkopi Nybegynder

12. november 2002 - 11:34 #1

str const fejlen er efter .... & afsender &"_ (her!)

Synes godt om

medions Nybegynder

12. november 2002 - 11:35 #2

Lad mig lige se hele din kode!

//>Rune

Synes godt om

medions Nybegynder

12. november 2002 - 11:35 #3

JMail.Body= JMail.Body + "Du kan læse hele artiklen på http://www.PeterOgDeAndreKopier.dk/news/nyheder.asp?nyhedsid"& nyheder & "Håber vi ses," & vbCrLf & afsender

Det er fordi du ikke skal ha' &" tilsidest!

//>Rune

Synes godt om

peterkopi Nybegynder

12. november 2002 - 11:37 #4

Talt bagfra - hvilken & skal så fjernes?

Synes godt om

peterkopi Nybegynder

12. november 2002 - 11:38 #5

Her er sendnyhed.asp:

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\peterogdeandredk\db\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
Dim nyheder
nyheder = Request.QueryString("nyheder")
SQL = "SELECT * FROM nyheder WHERE id="
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<html>
<head>
<title>Send denne nyhed...</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
</head>

<body BGCOLOR="#FFFFFF" TEXT="#000000">
<%

afsender = request("afsnavn")
modtager = request("modtnavn")
mail = request("ad")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.peterogdeandrekopier.dk;websmtp.peterogdeandrekopier.dk;mailrelay.andersenit.dk"
JMail.Sender = "admin@peterogdeandrekopier.dk"
JMail.Subject = "Artikel sendt til" & modtager &", fra " & afsender
JMail.AddRecipient = "admin@peterogdeandrekopier.dk"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.ContentTransferEncoding = "8bit"
JMail.Charset = "ISO-8859-1"

JMail.Body = "Hej" & modtager & vbCrLf & "Din ven, " & afsender & ", har besøgt vores side http://www.PeterOgDeAndreKopier.dk/news/nyheder.asp og sendt dig denne artikel:" &vbCrlf
JMail.Body= JMail.Body + rs("titel") & vbCrLf
JMail.Body= JMail.Body + rs("teaser - DEN SKAL DEFINERES!") & vbCrLf & vbCrlf
JMail.Body= JMail.Body + "Du kan læse hele artiklen på http://www.PeterOgDeAndreKopier.dk/news/nyheder.asp?nyhedsid"& nyheder & "Håber vi ses," & vbCrLf & afsender &"

If Not JMail.Execute Then
Response.Write "ERROR MESSAGE: " & JMail.ErrorMessage & "<br>" & vbCrLf
Response.Write "ERROR SOURCE: " & JMail.ErrorSource & "<br>" & vbCrLf
Response.Write "LOG: <pre>" & JMail.Log & "</pre>" & vbCrLf
Else
Response.Write " Nyheden " & rs("titel") & " er sendt til " & modtager & " på " & mail"
End If

JMail.AddRecipient mail
JMail.Execute

Set JMail = Nothing

else %>

<form action="../news/sendnyhed.asp" METHOD="POST">
<table cellpadding="2" cellspacing="2" border="1">
<tr>
<td><div align="center"><center><h2>Send nyheden til en ven...</h2>
</center></div></td>
</tr>
<tr>
<td><input TYPE="TEXT" onFocus="this.form.ad.select()" value="Modtagerens e-mail:"
NAME="ad" SIZE="17"> </td>
</tr>
<tr>
<td><input TYPE="TEXT" onFocus="this.form.afsnavn.select()" value="Dit navn"
NAME="afsnavn" SIZE="17"> </td>
</tr>
<tr>
<td><input TYPE="TEXT" onFocus="this.form.modtnavn.select()" value="Modtagerens navn:"
NAME="afsnavn" SIZE="17"> </td>
</tr>
<tr>
<td><input type="submit" value="Send nyheden"> </td>
</tr>
</table>
</form>
<% end if%>

<%
DataConn.Close
Set DataConn = Nothing
%>
</body>
</html>

Synes godt om

medions Nybegynder

12. november 2002 - 11:40 #6

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\peterogdeandredk\db\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
Dim nyheder
nyheder = Request.QueryString("nyheder")
SQL = "SELECT * FROM nyheder WHERE id="
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<html>
<head>
<title>Send denne nyhed...</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
</head>

<body BGCOLOR="#FFFFFF" TEXT="#000000">
<%

afsender = request("afsnavn")
modtager = request("modtnavn")
mail = request("ad")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.peterogdeandrekopier.dk;websmtp.peterogdeandrekopier.dk;mailrelay.andersenit.dk"
JMail.Sender = "admin@peterogdeandrekopier.dk"
JMail.Subject = "Artikel sendt til" & modtager &", fra " & afsender
JMail.AddRecipient = "admin@peterogdeandrekopier.dk"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.ContentTransferEncoding = "8bit"
JMail.Charset = "ISO-8859-1"

JMail.Body = "Hej" & modtager & vbCrLf & "Din ven, " & afsender & ", har besøgt vores side http://www.PeterOgDeAndreKopier.dk/news/nyheder.asp og sendt dig denne artikel:" &vbCrlf
JMail.Body= JMail.Body + rs("titel") & vbCrLf
JMail.Body= JMail.Body + rs("teaser - DEN SKAL DEFINERES!") & vbCrLf & vbCrlf
JMail.Body= JMail.Body + "Du kan læse hele artiklen på http://www.PeterOgDeAndreKopier.dk/news/nyheder.asp?nyhedsid"& nyheder & "Håber vi ses," & vbCrLf & afsender

If Not JMail.Execute Then
Response.Write "ERROR MESSAGE: " & JMail.ErrorMessage & "<br>" & vbCrLf
Response.Write "ERROR SOURCE: " & JMail.ErrorSource & "<br>" & vbCrLf
Response.Write "LOG: <pre>" & JMail.Log & "</pre>" & vbCrLf
Else
Response.Write " Nyheden " & rs("titel") & " er sendt til " & modtager & " på " & mail"
End If

JMail.AddRecipient mail
JMail.Execute

Set JMail = Nothing

else %>

<form action="../news/sendnyhed.asp" METHOD="POST">
<table cellpadding="2" cellspacing="2" border="1">
<tr>
<td><div align="center"><center><h2>Send nyheden til en ven...</h2>
</center></div></td>
</tr>
<tr>
<td><input TYPE="TEXT" onFocus="this.form.ad.select()" value="Modtagerens e-mail:"
NAME="ad" SIZE="17"> </td>
</tr>
<tr>
<td><input TYPE="TEXT" onFocus="this.form.afsnavn.select()" value="Dit navn"
NAME="afsnavn" SIZE="17"> </td>
</tr>
<tr>
<td><input TYPE="TEXT" onFocus="this.form.modtnavn.select()" value="Modtagerens navn:"
NAME="afsnavn" SIZE="17"> </td>
</tr>
<tr>
<td><input type="submit" value="Send nyheden"> </td>
</tr>
</table>
</form>
<% end if%>

<%
DataConn.Close
Set DataConn = Nothing
%>
</body>
</html>

Prøv med dette!

//>Rune

Synes godt om

peterkopi Nybegynder

12. november 2002 - 11:41 #7

FORM ACTION skal vist laves om til noget i denne stil, ikk'?

<FORM ACTION="nyheder.asp?mode=kommentarer&id=<%=Request.Querystring("id")%>" method="post">

Synes godt om

peterkopi Nybegynder

12. november 2002 - 11:41 #8

øh, minus kommentarer...?!?!?

Synes godt om

medions Nybegynder

12. november 2002 - 11:43 #9

Altså denne linje

JMail.Body= JMail.Body + "Du kan læse hele artiklen på http://www.PeterOgDeAndreKopier.dk/news/nyheder.asp?nyhedsid"& nyheder & "Håber vi ses," & vbCrLf & afsender &"

Skal se sådan her ud:

JMail.Body= JMail.Body + "Du kan læse hele artiklen på http://www.PeterOgDeAndreKopier.dk/news/nyheder.asp?nyhedsid"& nyheder & "Håber vi ses," & vbCrLf & afsender

Det jeg har gjordt er at fjerne de 2 sidste tegn (&")...

//>Rune

Synes godt om

eagleeye Praktikant

12. november 2002 - 11:48 #10

Denne linie:

JMail.AddRecipient = "admin@peterogdeandrekopier.dk"

Skal være;

JMail.AddRecipient "admin@peterogdeandrekopier.dk"

Synes godt om

peterkopi Nybegynder

12. november 2002 - 11:50 #11

NY FEJL:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/news/sendnyhed.asp, line 45

Response.Write " Nyheden " & rs("titel") & " er sendt til " & modtager & " på " & mail"_(HER!)

Synes godt om

peterkopi Nybegynder

12. november 2002 - 12:15 #12

Ovenst. NY FEJL kom efter dit sidste svar, medions!

eagleeye: Hvad er meningen, synes ikke jeg kan se nogen konsensus i anvendelsen af = og "?!

Synes godt om

medions Nybegynder

12. november 2002 - 13:32 #13

Response.Write " Nyheden " & rs("titel") & " er sendt til " & modtager & " på " & mail_"(HER!)

Denne linje er helt gal.. Jeg kan ik' rigtig se hvad du vil... Men lad os prøve med dette!
Response.Write " Nyheden " & rs("titel") & " er sendt til " & modtager & " på " & mail & "(HER!)"

//>Rune

Synes godt om

peterkopi Nybegynder

12. november 2002 - 13:52 #14

Det jeg vil er:

Nyheden Sidste nyt på Eksperten: Design ændringer er sendt til Ham Der på hamder@ligeder.dk

Synes godt om

eagleeye Praktikant

12. november 2002 - 18:26 #15

Hvis det er en property for et object anvendes =
Hvis det er en function/metode anvends ikke =

Jmail.Body = "en body" 'Property
Jmail.AddRecipient "xx@xxx.dk" 'AddRecipient er et function kald.

Synes godt om

peterkopi Nybegynder

13. november 2002 - 00:10 #16

Tak for oplysningen, eagleeye!

- INGEN bud på 12/11-2002 11:50:19?
- at kunne sende en valgt nyhed til en ven via siden http://www.peterogdeandrekopier.dk/news/sendnyhed.asp ?

Utroligt så hurtigt svarlysten uddør herinde. Er der ingen, der har lyst til at følge den her hjem?

Synes godt om

eagleeye Praktikant

13. november 2002 - 00:11 #17

Prøv og fjerne det sidste " i linien:

Response.Write " Nyheden " & rs("titel") & " er sendt til " & modtager & " på " & mail

Synes godt om

eagleeye Praktikant

13. november 2002 - 00:28 #18

"Utroligt så hurtigt svarlysten uddør herinde. Er der ingen, der har lyst til at følge den her hjem?"

Nu er det en gratis service du får her. Det et forum hvor man får hjælp til selvhjælp/små opgaver. Folk kan jo ikke side online 24 timer i døgnet for at yde gratis hjælp.. Det er jo også tilladt at tænke lidt selv, hvad de forskellige fejl betyder. Siden peger endda med en pil lige på hvor fejlen er.
En anden mulighed var måske at oprette spørgsmål på shartsforum og så slippe lidt kontanter og så en til at arbejde på det.

Hvad med at afprøve og kommentere det sidste forslag jeg er kommet med, hvis det skal gå så hurtigt!!!

For det ik' skal være løgn så har medions givet sit bud (12/11-2002 13:32:37) til spørgsmålet (12/11-2002 11:50:19)....

Synes godt om

eagleeye Praktikant

13. november 2002 - 00:29 #19

Der er gået 17 minutter og du har ikke kommentere mit bud eller rettet det på siden og loaded det op.

Synes godt om

peterkopi Nybegynder

13. november 2002 - 00:43 #20

Uha, som tiden dog flyver afsted. Både her og der *S* Ja, eagleeye, det lyder næsten som om du ta'r det meget personligt. Men jeg har bare oplevet, at nogle spm stille og roligt dør. Og det er ikke fordi jeg ikke selv har været i gang med dem. Men lad nu det ligge, hvor den slags hører hjemme.

Men dit/medions svar mangler jeg åbenbart et objekt i linje 82!

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/news/sendnyhed.asp, line 82

Linje 82:
DataConn.Close

Synes godt om

peterkopi Nybegynder

13. november 2002 - 00:45 #21

PS! Da jeg kl. cirka 00:28:22 skrev "Utroligt så hurtigt svarlysten uddør herinde..." havde jeg ikke set dit indlæg 00:29:00 - sry!

Synes godt om

peterkopi Nybegynder

13. november 2002 - 00:48 #22

Ved at submitte formen på ../sendnyhed.asp får jeg selvfølgelig fejl på både

JMail.Body= JMail.Body + rs("titel") & vbCrLf ...OG:
JMail.Body= JMail.Body + rs("teaser - DEN SKAL DEFINERES!") & vbCrLf & vbCrlf

Jeg skal jo have overført nyhedsid til formularen... Prøver lige at læse lidt i min Instant ASP Scripts....

Synes godt om

peterkopi Nybegynder

13. november 2002 - 02:44 #23

Klør stadig på *S* Ser lidt underligt ud under den 1. nyhed (???) på http://www.peterogdeandrekopier.dk/news/nyheder.asp

Og så kan jeg ikke få variablen (nyhedsid) overført til "Skriv kommentar"

Koden er ændret en del:

<% mode=request("mode")
'--- Kommentarer ---
if mode="kommentarer" then %>

<%

'Connection til database - NY fra koncert.asp
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\peterogdeandredk\db\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

' Her hiver vi indholdet af databasen ud
sql = "SELECT * From nyheder Where ID = " & Request.Querystring("ID")
Set rs = Conn.Execute(Sql)
%>

<table align="center" width="510" cellspacing="0" cellpadding="0" class="ContentStyle">
<tr>
<td width="510" valign="top">
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC"><%=(smileys(rs("smiley")))%></td>
<td bgcolor="#6699CC" width="100%"><table border="0" cellspacing="0" cellpadding="0" class="ContentStyle" width="100%">
<tr><td><%=rs("title")%></td><td align="right"><%= FormatDateTime(rs("dato"),1)%> - <%= FormatDateTime(rs("dato"),3)%></td></td></table></td>
</tr>
<tr>
<td bgcolor="#6699CC" colspan="2"><%=rs("nyhed")%><br><br>Skrevet af <em><%=rs("forfatter")%></em></td>
</tr>
</table>
<tr>
</tr>
</table>
<br>
<center>
<font size="2"><strong>- Kommentarer -</strong></font>
<br>
<%
' Connection til database
'Set Conn = Server.CreateObject("ADODB.Connection")
'DBPath = "DBQ=" & server.mappath("db.mdb")
'Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

'NY fra koncert.asp
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\peterogdeandredk\db\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

' Her hiver vi indholdet af databasen ud
sql = "SELECT * From kommentarer Where nyhedsid = " & Request.Querystring("id")
Set rs = Conn.Execute(Sql)
%>
<br>
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC" align="center" colspan="2">
<hr width="480" color="#000000" size="1">

<% Do While Not rs.EOF %>

<table width="480" border="0" cellspacing="0" cellpadding="0" class="ContentStyle">
<tr>
<td align="left" valign="top" width="150"><strong>Dato</strong></td><td align="left" valign="top" width="380"><%= FormatDateTime(rs("Dato"),1)%> - <%= FormatDateTime(rs("Dato"),3)%></td>
</tr>
<tr>
<td align="left" valign="top" width="150"><strong>Navn</strong></td><td align="left" valign="top" width="380">
<%
' Hvis brugeren ikke har skrevet sin E-mail skriver den brugernavnet uden det bliver til et aktivt link
If rs("email") = "" Then
Response.Write rs("navn")
Else
Response.Write "<a href="& "mailto:" & rs("email") &">"& rs("navn") &"</a>"
End If
%>
</td>
</tr>
<tr>
<td align="left" valign="top" width="150"><strong>ICQ</strong></td><td align="left" valign="top" width="380">
<%
' Hvis brugeren ikke har skrevet noget icq nummer skrives ingen ICQ ud
If rs("icq") = "" Then
Response.Write "Ingen ICQ"
Else
Response.Write "<a href="& "http://msg.mirabilis.com/scripts/contact.dll?msgto="& rs("icq") &">"& rs("icq") &"</a>"
End If
%>
</td>
</tr>
<tr>
<td align="left" valign="top" width="150"><strong>Hjemmeside</strong></td><td align="left" valign="top" width="380">
<%
' Hvis brugeren ikke har skrevet sin hjemmeside-adresse skrives Ingen Hjemmeside
' Oprindelig linje 152 If rs("url") = "http://" Then, er rettet til (peterkopi 13.11.2002)
If rs("url") = "" Then
Response.Write "Ingen Hjemmeside"
Else
Response.Write "<a href="& rs("url") &" target=""_blank"">"& rs("url") &"</a>"
End If
%>
</td>
</tr>
<tr>
<td align="left" valign="top" colspan="2" width="480">
<br><%=(smileys(rs("kommentar")))%>
<hr width="480" color="#000000" size="1"></td>
</tr>
</table>

<%
rs.MoveNext
Loop
%>

</td>
</tr>
</table>
<br>
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC" width="100%" align="center"><strong>Skriv en Kommentar</strong></td>
</tr>
<td bgcolor="#6699CC" colspan="2">


<table width="90%" align="center" border="0" cellspacing="10" cellpadding="0" class="ContentStyle">
<tr>
<td align="left" valign="top">


</td>
</tr>
<tr>
<input type="hidden" name="nyhedsid" value="<%=Request.Querystring("id")%>">
<td align="left" valign="top"><b>Dit Navn <font color="#336699">*</font></b></td><td align="right"><input name="navn" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td align="left" valign="top"><b>Din E-mail</b></td><td align="right"><input name="mail" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td align="left" valign="top"><b>Dit ICQ Nummer</b></td><td align="right"><input name="icq" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>

<td align="left" valign="top"><b>Din Hjemmeside</b></td><td align="right"><input name="url" type="textbox" class="InputTable" size="40" value="http://www."></td>
</tr>
<tr>
<td align="left" valign="top"><strong>Kommentar <font color="#336699">*</font></strong></td><td align="right"><textarea cols="39" rows="10" name="kommentar"></textarea></td>
</tr>
<tr>
<td align="left" valign="top"><input name="submit" type="submit" class="Button" value="Tilføj Kommentaren"></td><td align="right"><input name="reset" type="reset" class="Button" value="Slet og Start Forfra"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<a href="nyheder.asp"><strong>Tilbage</strong></a>

<% '--- Forsiden ---
else %>
<%
' Connection til database
' Set Conn = Server.CreateObject("ADODB.Connection")
' DBPath = "DBQ=" & server.mappath("../db/db.mdb")
' Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

'NY fra koncert.asp
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\peterogdeandredk\db\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM nyheder ORDER BY dato DESC"
Set rs = Conn.Execute(Sql)
%>
<table align="center" bgcolor="#000000" width=""510" cellspacing="1" cellpadding="2">
<tr>
<td bgcolor="#333333" width="510"><center><font color="#FFFFFF"><strong>Nyheder</strong></center></td>
</tr>
</table>
<br>
<% Do While Not rs.EOF
SQL2 = "select count(*) as antal from kommentarer WHERE nyhedsId = " & rs("id")
Set TheCount = Conn.Execute(Sql2)
antal = TheCount("antal")
%>
<table align="center" width="510" cellspacing="0" cellpadding="0" class="ContentStyle">
<tr>
<td width="510" valign="top">
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC"><%=(smileys(rs("smiley")))%></td>
<td bgcolor="#6699CC" width="100%"><table border="0" cellspacing="0" cellpadding="0" class="ContentStyle" width="100%">
<tr><td><%=rs("title")%> - (<a href="nyheder.asp?mode=kommentarer&id=<%=rs("id")%>"><%=antal%></a>)</td><td align="right"><%= FormatDateTime(rs("dato"),1)%> - <%= FormatDateTime(rs("dato"),3)%></td></td></table></td>
</tr>
<tr>
<td bgcolor="#6699CC" colspan="2"><%=rs("nyhed")%><br><br>Skrevet af <em><%=rs("forfatter")%></em></td>
</tr>
</tr>
</table>
<tr>
<td><a href=""><IMG SRC="../images/nav/doc.gif" BORDER="0" WIDTH="12" HEIGHT="12" ALIGN="bottom" ALT="Skriv en kommentar til nyheden">
<form action="nyheder.asp?mode=kommentarer&id=<%=Request.Querystring("id")%>" method="post">Skriv kommentar</a><IMG SRC="../images/space.gif" BORDER="0" WIDTH="145" HEIGHT="15" ALIGN="bottom" ALT=""><a href="">Send nyheden til en ven(asplink) <IMG SRC="../images/nav/pil_hoejre_hvidpil-roedks.gif" BORDER="0" WIDTH="10" HEIGHT="9" ALIGN="bottom" ALT="Send nyheden til en ven"></a></td>
</tr>
</table>
<br>
<%
'FRA LINJE 267 TIL LINJE 302 STAMMER FRA LINJE
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\peterogdeandredk\db\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

'Tjecker om felterne er udfyldt
if (Request.Form("navn") <> "" AND Request.Form("kommentar") <> "") then

'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from kommentarer"
rs.Open strsql, conn, 1, 3

'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("nyhedsid") = Server.HTMLEncode(Request("nyhedsid"))
rs("navn") = Server.HTMLEncode(Request("navn"))
rs("email") = Server.HTMLEncode(Request("email"))
rs("icq") = Server.HTMLEncode(Request("icq"))
rs("url") = Server.HTMLEncode(Request("url"))
rs("kommentar") = Server.HTMLEncode(Request("kommentar"))
rs("dato") = Now()
rs.update

Response.Redirect("nyheder.asp?mode=kommentarer&id="& Request.Querystring("id") &"")

rs.Close
set rs = nothing

else
Response.Write("<strong><font color='red'>Du mangler at udfylde felter !</font></strong>")

end if
end if
%>
<%
rs.MoveNext
Loop
%>
<center>
<a href="login.asp"><strong>Admin</strong></a>
</center>
<% End if %>
</body>
</html>

Synes godt om

eagleeye Praktikant

13. november 2002 - 10:18 #24

"linket" til Skriv kommentar er lavat som en form:

<form action="nyheder.asp?mode=kommentarer&id=" method="post">Skriv kommentar</a><IMG SRC="../images/space.gif" BORDER="0" WIDTH="145" HEIGHT="15" ALIGN="bottom" ALT="">

Det skal være et link i stil med Send nyhed til ven:

<a href="?mode=kommentarer&id=<%=Request.Querystring("ID")%>">Skriv kommentar</a>

Synes godt om

peterkopi Nybegynder

13. november 2002 - 10:45 #25

Hvis man vil tilføje en kommentar nu, så ser linket sådan her ud:

http://www.peterogdeandrekopier.dk/news/nyheder.asp?mode=kommentarer&id=4 (*)

Der peger ind på samme side (../nyheder.asp) bare kun med den valgte nyhed (id=4), evt. allerede skrevne kommentarer og så en formular, hvor det er muligt at tilføje en kommentar. Linket er p.t. placeret i parentesen efter nyhedens overskrift. I scriptet er der umiddelbart efter linket (*) placeret noget validering, og jeg har ikke kunne flytte den del af scriptet, så det passer til mit ønske.

Og hvem fanden har dog slettet de andre 22-23 indlæg i dette spm? Er E. mon syg i dag?

Synes godt om

peterkopi Nybegynder

14. november 2002 - 01:33 #26

Jeg lukker og splitter dette spm op i min. 2 nye spm. Tak for Jeres tid!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS