25 svar · 265 visningar · startad av Gimbo · sida 2 av 2
Kan någon hjälpa mig med denna kod, som är gjord skriven från ASP på 3veckor, alltså det den inte gör är att den inte hämtar uppgifterna från databasen och insätter dessa i kalender rutorna: <% diverse kod blablabl %> <html> <head> <title>Min kalender</title> <link rel="stylesheet" href="stil.css" type="text/css"> </head> <body leftmargin="0" topmargin="0"> <table align="center" bordercolor=
Läs frågan i sin helhet →@nders glömde ett %> så om man sätter ihop allt så borde det bli.
Dim handelse
handelse = recset("Handelse")
response.write left(handelse,64)
if len(handelse) > 64 then
strHandelse = replace(handelse, vbCrLf, "\n")
strHandelse = replace(strHandelse,"'","\'") [b]%>[/b]
<a href="" onclick="alert('<%=strHandelse%>');">Klicka här för mer info!</a>
<%
end if
------------------
essentitia preter non sans multiplicandum
Tja ingenting kanske?
Det brukar gå bra så där helt utan, liksom. annars kan du prova # eller så.
Red: Jo, visst glömde jag ett %> men det skyller ifrån mig på någon annan. ;)
Mvh,
------------------
Don't panic!
[Redigerat av @nders den 28 nov 2001]
Men det fungerar inte, ooohhhh jag blir dum!!!, det blir inte ens en länk på texten: så här ser det ut:
<%
Dim iAntalInbokningar
iAntalInbokningar = 0
Dim iRaderLoop, iKolumnerLoop
iRader = 5
iKolumner = 7
For iRaderLoop = 1 to iRader
Response.Write "<tr>"
For iKolumnerLoop = 1 to iKolumner
If aDagar((iRaderLoop-1)*7 + iKolumnerLoop) > 0 Then
Response.Write "<td valign=top bgcolor=#f6faf6 align=right width=""14%"" & height=" & FormatPercent(1/iRader,0) & ">"
Response.Write "<table cellspacing=0 cellpadding=0 border=0 " & "width=""100%"">"
Response.Write "<tr><td align=right valign=top><b>"
Response.Write "<font face=verdana size=""1""><b>"
Response.Write aDagar((iRaderLoop-1)*7 + iKolumnerLoop)
Response.Write "</b></font>"
Response.Write "</b></td></tr>"
If Not Recset.EOF Then
If Recset("Dag") = aDagar((iRaderLoop-1)*7 + iKolumnerLoop) Then
Response.Write "<tr height=""100%""><td valign=top align=left>"
Response.Write "<font size=1 face=verdana>"
Dim handelse
handelse = recset("Handelse")
response.write left(handelse,64)
if len(handelse) > 64 then
strHandelse = replace(handelse, vbCrLf, "\n")
strHandelse = replace(strHandelse,"'","\'") %>
<a href="" onclick="alert('<%=strHandelse%>');">Klicka här för mer info!</a> %>
<%
end if
Recset.MoveNext
iAntalInbokningar = iAntalInbokningar + 1
Response.Write "</font>"
Response.Write "</td></tr>"
End If
End If
Response.Write "</table>"
Response.Write "</td>"
Else
Response.Write "<td bgcolor=#ffffff> </td>"
End If
Next
Response.Write "</tr>"
Next
Recset.Close
Set Recset = Nothing
Conn.Close
Set Conn = Nothing
%>
Är texten mer än 64 tecken då?
Jag tycker spontant att det ser rätt ut.
Mvh,
------------------
Don't panic!
Du har ett %> för mycket här
<a href="" onclick="alert('<%=strHandelse%>');">Klicka här för mer info!</a> %>
det skall vara
<a href="" onclick="alert('<%=strHandelse%>');">Klicka här för mer info!</a>
(men det spelar ingen roll i detta fall)
------------------
essentitia preter non sans multiplicandum
[Redigerat av LarsG den 28 nov 2001]
det e ju sak samma, det här e verkligen skumt