25 svar · 324 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 hela trådstarten →@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
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,
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
%>
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)
det e ju sak samma, det här e verkligen skumt