varför hämtar den inte från databas

Variablerna iRader och iKolumner får aldrig några värden och därför så kommer man aldrig in i looparna

For iRaderLoop = 1 to iRader
'respektive
For iKolumnerLoop = 1 to iKolumner

------------------
essentitia preter non sans multiplicandum

Hmmm, men hur ska jag göra för att bli kvitt problemet??

Nu vet jag inte exakt vad dom betyder men du kan ju testa och sätta lite värden och se vad det får för resultat

iRader = 5
iKolumn = 7
For iRaderLoop = 1 to iRader
Response.Write "<tr>"
For iKolumnerLoop = 1 to iKolumner

t.ex.

------------------
essentitia preter non sans multiplicandum

får ett felmeddelande som lyder:

Körningsfel i Microsoft VBScript fel '800a01f4' 
Odefinierad variabel: 'iKolumn' 

/kalender/kalender.asp, rad 128

väldigt skumt problem, för den skriver till databasen när jag lägger till en händelse, kan det ha ngt med att jag har access97 som databas?

Felmeddelandet som du fick beror på att jag skrev fel

iRader = 5
iKolumner = 7
For iRaderLoop = 1 to iRader
Response.Write "<tr>"
For iKolumnerLoop = 1 to iKolumner

------------------
essentitia preter non sans multiplicandum

Det e sak samma, den läser fortfarande in info från databasen, vet du vart jag tror felet ligger, jag tror det ligger i databasen, för det här scriptet e gjort av "ASP på 3veckor" och jag hade scriptet fördigt men inte databasen så jag gjorde min egna databas, och så här ser det ut när den ska läsa in värdena från databasen:

<%

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("kalender.mdb")
 
Dim SQL
SQL = "SELECT Dag, Handelse FROM kalender WHERE Manad = "& Month(dbDatum)&"  AND Ar = "& Year(dbDatum) &" ORDER BY Dag ASC"

Dim Recset
Set Recset = Server.CreateObject("ADODB.Recordset") 
Recset.Open SQL, Conn, 1, 2

%>

och så här ser det ut när den ska skriva till databasen:

<%

' *******************************************************
' Databaskoppling
' *******************************************************
Dim Conn, SQL
Set Conn	= Server.CreateObject("ADODB.Connection")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\db_tillf.mdb") & ";pwd=;"

SQL = "INSERT INTO kal ([Ar],[Manad],[Dag],[Handelse]) VALUES('" & Request.Form("Ar") & "','" & Request.Form("Manad") & "','" & Request.Form("Dag") & "','" & Request.Form("Handelse") & "')"
Conn.Execute(SQL)

Conn.Close
Set Conn = Nothing

Response.Redirect "admin.asp"

och så här ser min databas ut:

ID|räknare
Ar|Text
Manad|Text
Dag|Text
Handelse|Text

Och om du kollar på denna rad så ser du att den inte har ' innan "-tecknet dvs månad och dag raderna, ska inte sättas till datum/tid för då skulle det ju va en # innan, så jag undrar vad det ska va för värden på de raderna i databasen, hänger du med LarsG??

Det verkar vara bättre om du ändrar datatypen för Ar Manad och Dag till tal

I så fall får du byta insert-satsen till

SQL = "INSERT INTO kal ([Ar],[Manad],[Dag],[Handelse]) VALUES(" & Request.Form("Ar") & "," & Request.Form("Manad") & "," & Request.Form("Dag") & ",'" & replace(Request.Form("Handelse"),"'","''") & "')"
Conn.Execute(SQL)

------------------
essentitia preter non sans multiplicandum

Tack LarsG nu fungera det :-) men det va skumt att det inte fungera i början då den inte läste in värdena från databasen... men men hur som helst nu fungerar det

jag fundera på att vidare utveckla detta kalender script och göra så att folk kan klicka på det som visas i kalender rutan och det öppnas ett popup fönster där det står allt som finns i databas raden, för nu e det så att det inte står allt det man skriver in, skulle vilja att 68 tecken skrevs in i kalender rutan, och sedan skall en mer info länk dyka upp där man kan läsa om allt som står i databasen, kan någon hjälpa mig? så här ser raden där det skrivs till en kalender ruta:

<%

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("..\db_tillf.mdb")
 

Dim SQL
SQL = "SELECT Dag, Handelse FROM kal WHERE Manad = "& Month(dbDatum)&"  AND Ar = "& Year(dbDatum) &" ORDER BY Dag ASC"

Dim Recset
Set Recset = Server.CreateObject("ADODB.Recordset") 
Recset.Open SQL, Conn, 1, 2

%>
  <%
 
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>"

       Response.Write Recset("Handelse")
       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>&nbsp;</td>"
    End If
  Next

  Response.Write "</tr>"
Next

Recset.Close
Set Recset = Nothing

Conn.Close
Set Conn = Nothing

%>

och det är från kolumnen Handelse man läser in informationen i kalender rutan...

Popup rutans script e inget problem, den tänker jag köra med javascript men problemet är hur man begränsar antalet bokstäver och infår en mer info knapp som länkas till den specifika aktiviteten, någon som kan hjälpa mig?

Om du byter denna

Response.Write Recset("Handelse")

till

Dim handelse
handelse = recset("Handelse")
response.write left(handelse,64)

if len(handelse) > 64 then
'kod för popup
%>
<type input='SUBMIT' onclick=javascript:xxx value='Mer'>
<%
end if

------------------
essentitia preter non sans multiplicandum

LarsG, men hur ska knappen veta att det är just den texten som ska öppnas i en ny ruta?

hur ska kodningen för pop up länken vara?

jag har försökt trixa o fixa den i dagar nu men inte lyckats, snälla tror du att du kan hjälpa mig...

Jag kan inte javascript, tyvärr.

------------------
essentitia preter non sans multiplicandum

Någon annan som kan hjälpa mig med det+ eller ngn so kan hjälpa mig med att fixa det här problemet?

Men Lars, hur skulle du fixa det med asp? alltså det måste inte vara jva, bara jag får det gjort...

ASP blir det svårt med, men lite javascript går det väl att fixa. :)

Hur vill du ha det, en alertbox med texten i eller ett nytt litet fönster med en sida som visar texten?

Mvh,

------------------
Don't panic!

Så vitt jag förstår så måste du använda javascript för att öppna ett nytt fönster, så det går inte med enbart ASP.

------------------
essentitia preter non sans multiplicandum

en alertbox, det e nämmligen som så att oi kalender rutan så ska det enbart visas 64tecken sen när man klickar på en "mer" knapp så ska hela inehållet synas...

Okidoki! :)

Testa detta:

strHandelse = replace(handelse, vbCrLf, "\n")
strHandelse = replace(strHandelse,"'","\'")
<a href="" onclick="alert('<%=strHandelse%>');">Klicka här för mer info!</a>

Jag gjorde om submitknappen från koden ovan till en textlänk, eftersom jag tycker det är smidigare.

Mvh,

------------------
Don't panic!

[Redigerat av @nders den 28 nov 2001]

Men vad ska jag ha mellan "-tecknena i a href taggen??

Kan du visa mig hur hela kodningen för det där ska se ut, skulle verkligen uppskatta det...