mysql och asp

squiz3r · Inlägg av **squiz3r** » 29 juli 2008, 13:23:06

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.

pern · Inlägg av **pern** » 29 juli 2008, 15:27:18

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

squiz3r · Inlägg av **squiz3r** » 29 juli 2008, 17:00:42

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..

pern · Inlägg av **pern** » 29 juli 2008, 17:39:45

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.

squiz3r · Inlägg av **squiz3r** » 31 juli 2008, 17:51:00

tack Pern! Nu fungerar det, så då har jag något att leka med i bilen på väg hem från stockholm

squiz3r · Inlägg av **squiz3r** » 6 augusti 2008, 12:21:45

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

JimmyAndersson · Inlägg av **JimmyAndersson** » 6 augusti 2008, 12:28:43

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?

squiz3r · Inlägg av **squiz3r** » 6 augusti 2008, 12:30:58

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.

007sweden · Inlägg av **007sweden** » 6 augusti 2008, 12:33:45

Skit i ASP och lär dig php.

Och klarar inte webbhotellet PHP, skaffa ett annat webbhotell...

sodjan · Inlägg av **sodjan** » 6 augusti 2008, 12:34:02

Vore inte en

Select Case,
Case
Case
End Select

snyggare ?

squiz3r · Inlägg av **squiz3r** » 6 augusti 2008, 12:35:56

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..

sodjan · Inlägg av **sodjan** » 6 augusti 2008, 12:51:07

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.

pern · Inlägg av **pern** » 6 augusti 2008, 13:24:31

Använd Select Case eller gör en function som returnerar månaden.

squiz3r · Inlägg av **squiz3r** » 6 augusti 2008, 13:50:05

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

pern · Inlägg av **pern** » 6 augusti 2008, 13:54:28

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