Sida 2 av 8
Postat: 29 juli 2008, 13:23:06
av squiz3r
pern: jag har lagt in två rader manuellt med phpMyAdmin.
Sodjan: Jag har bytt ut textstringarna till fält med char. Samma problem kvarstår..
Jag börjar få lite idé torka nu, finns inte mycket kvar jag kan komma på att testa.. Får googla mera och hoppas på det bästa.
"Who cares..."
Mja.. Tänkte att någon kankse uppsakattade att veta att jag kommer vara lite inaktiv några dagar.
Postat: 29 juli 2008, 15:27:18
av pern
Normalt skriver man typ såhär:
Kod: Markera allt
Dim Conn '// ADODB Connection
Dim Rs '// Recordset
Dim sSQL '// SQL Sats
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
' // --- Välj DB type ---
Conn.Open "Provider=SQLOLEDB;Data Source=localhost;database=va;uid=reb;pwd=rudarna;" ' // MS SQL Server
'// Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("MinAccessDB.mdb") ' // MS Access
'// Conn.Open "DSN=minDsn; User Id=jag; Password=losen;" ' // MySQL Etc
sSQL = "SELECT * FROM test"
Rs.Open sSQL, Conn
While NOT Rs.EOF
Response.Write(Rs("Name").Value)
Response.Write(Rs("Adress").Value)
Wend
Set Rs = Nothing
Set Conn = Nothing
Postat: 29 juli 2008, 17:00:42
av squiz3r
pern: tack! bara en sak. "MinDsn" är det databasen, för att jag ska ju ange server, databas, anvndare och lösenord. Och i din sträng är det bara 3 av dem..
Eftersom jag är okunnig inom ämnet vet jag inte om felet är hoss crystonee eller min okunskap.. Så jag har ingen lust att kontakta dem..
Postat: 29 juli 2008, 17:39:45
av pern
Pröva
Kod: Markera allt
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db-3.crystone.se;DATABASE=crazycasemod_se;USER=ei3ujaffen;PASSWORD=....;OPTION=3;"
Men sätt rätt lösenord bara.
Postat: 31 juli 2008, 17:51:00
av squiz3r
tack Pern! Nu fungerar det, så då har jag något att leka med i bilen på väg hem från stockholm
Postat: 6 augusti 2008, 12:21:45
av squiz3r
Ok.. Nu har jag lite problem igen, med ASP delen den här gången.
Om jag skriver koden såhär så får jag felmedelandet "Unexpected 'Next'"
Kod: Markera allt
<%
// Read content from the 'komihag' table.
sSql="SELECT DISTINCT in_man FROM komihag where in_ar='2008' ORDER BY in_man"
rs.Open sSql, conn
do until rs.EOF
for each x in rs.Fields
%><a href="komihag.asp?manad=<%
Response.Write(x.value & "&" & "ar=" & "2008")
%>"><%
IF (x.value = 1) then
manad_meny = "JAN"
ELSE IF (x.value = 2) then
manad_meny = "FEB"
ELSE IF (x.value = 3) then
manad_meny = "MAR"
ELSE IF (x.value = 4) then
manad_meny = "APR"
ELSE IF (x.value = 5) then
manad_meny = "MAJ"
ELSE IF (x.value = 6) then
manad_meny = "JUN"
ELSE IF (x.value = 7) then
manad_meny = "JUL"
ELSE IF (x.value = 8) then
manad_meny = "AUG"
ELSE IF (x.value = 9) then
manad_meny = "SEP"
ELSE IF (x.value = 10) then
manad_meny = "OKT"
ELSE IF (x.value = 11) then
manad_meny = "NOV"
ELSE IF (x.value = 12) then
manad_meny = "DEC"
END IF
Response.write(manad_meny & "</a> <br>")
next
rs.MoveNext
loop
rs.close
%>
Om jag plockar bort IF-satsen, såhär tex. så fungerar det.
Kod: Markera allt
<%
// Read content from the 'komihag' table.
sSql="SELECT DISTINCT in_man FROM komihag where in_ar='2008' ORDER BY in_man"
rs.Open sSql, conn
do until rs.EOF
for each x in rs.Fields
%><a href="komihag.asp?manad=<%
Response.Write(x.value & "&" & "ar=" & "2008")
%>"><%
manad_meny = "JAN"
Response.write(manad_meny & "</a> <br>")
next
rs.MoveNext
loop
rs.close
%>
Postat: 6 augusti 2008, 12:28:43
av JimmyAndersson
Jag kan egentligen inte ASP, men i många språk kan man inte skriva:
IF (x.value = 1)
Det blir då samma sak som x.value = 1
Istället skriver man:
IF (x.value == 1)
Men det kanske är ok i ASP?
Postat: 6 augusti 2008, 12:30:58
av squiz3r
JimmyAndersson: jag blev också lite osäker på hur det va i ASP, så jag testade med det och då säger den "Syntax error". Ska kolla för säkerhets skull i refferens filen.
Postat: 6 augusti 2008, 12:33:45
av 007sweden
Skit i ASP och lär dig php.
Och klarar inte webbhotellet PHP, skaffa ett annat webbhotell...
Postat: 6 augusti 2008, 12:34:02
av sodjan
Vore inte en
Select Case,
Case
Case
End Select
snyggare ?
Postat: 6 augusti 2008, 12:35:56
av squiz3r
Sodjan: Jo, jag har funderat på det också. Mén jag vill ju lära mig vad det är för fel jag har gjort här
007: Jag har ingenstans jag kan köra PHP, så då kan jag lika gärna lära mig ASP fram tills jag kan börja med PHP..
Postat: 6 augusti 2008, 12:51:07
av sodjan
Det enda som jag kan tänka mig är att varje IF ska avslutas med en END IF.
Det är ju snabbt att testa :
Kod: Markera allt
IF (...) then
...
ELSE IF (...) then
...
ELSE IF (...) then
...
ELSE IF (...) then
...
END IF
END IF
END IF
END IF
eller något liknande...
Men en CASE blir snyggare.
Postat: 6 augusti 2008, 13:24:31
av pern
Använd Select Case eller gör en function som returnerar månaden.
Postat: 6 augusti 2008, 13:50:05
av squiz3r
sodjan: aha, Det ser välldigt konstigt ut, men det fungerade
Nu har jag bytt till en CASE istället.
Kod: Markera allt
<%
// Read content from the 'komihag' table.
sSql="SELECT DISTINCT in_man FROM komihag where in_ar='2008' ORDER BY in_man"
rs.Open sSql, conn
do until rs.EOF
for each x in rs.Fields
%><a href="komihag.asp?manad=<%
Response.Write(x.value & "&" & "ar=" & "2008")
%>"><%
Select Case x.value
Case 1
Response.Write("JAN")
Case 2
Response.Write("FEB")
Case 3
Response.Write("MAR")
Case 4
Response.Write("APR")
Case 5
Response.Write("MAJ")
Case 6
Response.Write("JUN")
Case 7
Response.Write("JUL")
Case 8
Response.Write("AUG")
Case 9
Response.Write("SEP")
Case 10
Response.Write("OKT")
Case 11
Response.Write("NOV")
Case 12
Response.Write("DEC")
Case Else
Response.Write("ERROR!")
End Select
Response.write("</a> <br>")
next
rs.MoveNext
loop
rs.close
%>
Tack!
Mvh. Daniel
Postat: 6 augusti 2008, 13:54:28
av pern
kan även vara typ detta;
Kod: Markera allt
Dim sMonth
Dim sHref
sSql="SELECT DISTINCT in_man FROM komihag where in_ar='2008' ORDER BY in_man"
Rs.Open sSQL, Conn
While NOT Rs.EOF
Select Case Rs("in_man").Value
case 1
sMonth = "Jan"
case 2
sMonth = "Feb"
case 3
sMonth = "Mar"
case 4
sMonth = "Apr
case 5
sMonth = "Maj"
case 6
sMonth = "Jun"
case 7
sMonth = "Jul"
case 8
sMonth = "Aug"
case 9
sMonth = "Sept"
case 11
sMonth = "Okt"
case 11
sMonth = "Nov"
case 12
sMonth = "Dec"
End Select
sHref = "<a href=""komihag.asp?ar=2008+manad=" & Rs("in_man").Value & """>" & sMonth & "</a> <br/>"
Response.Write(sHref)
Rs.MoveNext
Wend
Set Rs = Nothing
Set Conn = Nothing