Hej. Jag har en gästbok och en dagbok jag skulle vilja dela upp.
Nu är det så att jag är är rejält grön på ASP och egentligen inte ens borde försöka mig på detta alls. Jag har sett scriptet som finns på Webforum men har ingen aning aning alls om hur jag ska bära mig åt för att lyckas.
Finns det någon vänlig själ här som kan tänka sig guida mig steg för steg...?
Här är den kodsnutt av dagboken som skriver ut databasen (jag tror den gör det iaf).
<%
Case Else
strAddLine = "<p><img src=images/add.gif width=16 height=16> <a href=guestbook.asp?mode=add><strong><font face=verdana size=2>Skriv inlägg i gästboken</font></strong></a></p>"
Response.Write strAddLine
strSQL = "SELECT * FROM Guestbook ORDER BY Dato DESC;"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open tempConn
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<table width=600 border=0 cellpadding=1 cellspacing=1>"
Do While Not rs.EOF
Select Case weekday(rs("Dato"))
case 1 dag = "Söndag"
case 2 dag = "Måndag"
case 3 dag = "Tisdag"
case 4 dag = "Onsdag"
case 5 dag = "Torsdag"
case 6 dag = "Fredag"
case 7 dag = "Lördag"
End Select
Select Case month(rs("Dato"))
case 1 maaned = " januari "
case 2 maaned = " februari "
case 3 maaned = " mars "
case 4 maaned = " april "
case 5 maaned = " maj "
case 6 maaned = " juni "
case 7 maaned = " juli "
case 8 maaned = " augusti "
case 9 maaned = " september "
case 10 maaned = " oktober "
case 11 maaned = " november "
case 12 maaned = " december "
End Select
Response.Write "\<tr width=""600"" bgcolor=#99ccff\>\<td\>\<font face=verdana,arial,helvetica size=2 color=#0000ff\>\<B\>" & dag & " den " & day(rs("Dato")) & maaned & year(rs("Dato")) & "\</B\>\</td\>\</tr\>"
'response.write year(rs("Dato"))
If Len(rs("Email")) \> 0 Then
Response.Write "\<tr\>\<td\>\<font face=verdana size=2\>\<strong\>\<a href=mailto:" & rs("Email") & "\>" & rs("Navn") & "\</a\> skriver:\</strong\>\</td\>\</tr\>"
Else
Response.Write "\<tr\>\<td\>\<font face=verdana size=2\>\<strong\>" & rs("Navn") & " skriver:\</strong\>\</td\>\</tr\>"
End If
Response.Write "\<tr\>\<td\>\<font face=verdana size=2\>" & replace(rs("Kommentar"), vbcrlf, "\<br\>") & "\<br\> \</td\>\</tr\>"
If Len(rs("Hemsida")) \> 0 Then
Hemsa = rs("Hemsida")
If left(Hemsa,4) \<\> "http" then
Hemsa = "http://" & Hemsa
End If
Response.Write "\<tr\>\<td\>\<font face=verdana size=2\>\<strong\>Hemsida: \<a href=" & Hemsa & " target=\_blank\>" & rs("Hemsida") & "\</a\>\</strong\>\<br\>\<br\>"
End If
rs.MoveNext
Loop
Response.Write "\</table\>"
Else
Response.Write "\<p\>\<font face=verdana size=2\>Inget inlägg i gästboken !\</font\>\</p\>"
End If
myConn.Close
Set myConn = Nothing
Response.Write strAddLine
End Select
%>
Nu då...? :q
255 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
