Clan [+35] Forum - Counterstrike for voksne

Clan [+35] Forum

Brugernavn:	Kodeord:
Husk kodeord
Glemt dit kodeord?

Alle fora

Computere

[+35] Jumpy's strange world of computers

2 mysql database udtræk fra samme side

Nyt emne

Emnet er lï¿½st

Vis printervenlig version

Forfatter

Emne

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 indlï¿½g

Skrevet - 02 Jun 2009 : 21:53:22

Hej

Ny problem!!!

Disse 2 sider  og  er includeret i min index.asp mit problem
er at jeg skal have trukket information ud af dem begge og kan ikke få den til at bruge samme strconnect det det sådan set hanlder om er at jeg kun vil
bruge strConnect, myConn og strSQL som streng laver jeg koden om til den samme strConnect men med forskællige Connection Variabler (RS) så vil ingen
af siderne vises så vises der kun til inc_toplinks.asp resten ser jeg ikke nogen forslag?

Koden jeg gerne ville bruge ville se sådan her ud men så kan jeg som sagt ikke se fra inc_toplinks.asp har så også kodet de andre sider om hvis denne kode

	Set rs = Server.CreateObject("ADODB.RecordSet")
	strSQL = "SELECT * From PRIVAT_MEMBERS WHERE MEMBER_ID LIKE '%" & Strgame & "%'"
	rs.Open strSQL, myConn, 1, 3
	
	Set rsinfo = Server.CreateObject("ADODB.RecordSet")
	strSQL = "SELECT * FROM PRIVAT_INFO ORDER BY INFO_ID"
	rsinfo.Open strSQL, myConn, 1, 3
	
	Set rsdagbog = Server.CreateObject("ADODB.RecordSet")
	strSQL = "SELECT *, left(D_MESSAGE,150) as DAGBOG FROM PRIVAT_DAGBOG ORDER BY DAGBOG_ID DESC LIMIT 5"
	rsdagbog.Open strSQL, myConn, 1, 3

index.asp ser sådan her ud.

<%@ Language="VBScript" %> 
<% Option Explicit %>

<!-- #INCLUDE FILE="inc_config.asp" -->

<!-- #INCLUDE FILE="inc_header.asp" -->

<!-- #INCLUDE FILE="inc_banner.asp" -->

<!-- #INCLUDE FILE="inc_toplinks.asp" -->

<!-- #INCLUDE FILE="inc_info.asp" -->

<!-- #INCLUDE FILE="inc_dagbog_main.asp" -->

<!-- #INCLUDE FILE="inc_footer.asp" -->

inc_config.asp ser sådan her ud.

<!-- #INCLUDE FILE="inc_adovbs.asp" -->

<%
'#################################################################################
'## Copyright (C) 2009-2010 Per Christiansen
'#################################################################################


'## Undgå caching af ASP-sider
Response.Buffer = true
Response.CacheControl = "no-cache"
Response.Expires = -1

'## Dimension variabler
dim strConnect, strConnectInfo, strConnectDagbog '## Indeholder Databasens driver og sti til og navn på databasen
dim myConn, myConnInfo, myConnDagbog '## Database Connection Variabel
dim strSQL, strSQLInfo, strSQLDagbog '## SQL Kommandoen
dim strGame '## Session

'## Info i venstre side
dim rsinfo
dim strShowIoverskrift, strImessage, strShowImessage, strIoverskrift

'## Dagbog i højre side
dim rsdagbog, strShowNday, strShowNdate, strShowNcomment, strShowHr, strNday, strNdate, strNcomment, strNhr

'## War System Recordset Variabel
dim RS, RS1, RS2, RS3, RS4, RS5, RS6, RS7, RS8, RS9, RS10, RS11

'## Copyright & The W3C validators
dim rsfooter

'## Kontakt formular fra forsiden
dim strNavn, strAdr, strPostnr, strBy, strTlfnr, strEMail, strBem, strreport
dim strSubject, strFrom, strTo, strBody, strMailServer, strEmptyStr
dim blnEmptyEMail
dim objMsg

dim strPassword, mail, objMail

'## Normal Connection Start
strConnect = "Driver={MySQL ODBC 3.51 Driver};server=xxxxx;database=xxxxx;option=16834;uid=xxxxx;pwd=xxxxx"

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strConnect

	Set rs = Server.CreateObject("ADODB.RecordSet")
	strSQL = "SELECT * From PRIVAT_MEMBERS WHERE MEMBER_ID LIKE '%" & Strgame & "%'"
	rs.Open strSQL, myConn, 1, 3

'## Info Connection Start
strConnectInfo = "Driver={MySQL ODBC 3.51 Driver};server=xxxxx;database=xxxxx;option=16834;uid=xxxxx;pwd=xxxxx"

Set myConnInfo = Server.CreateObject("ADODB.Connection")
myConnInfo.Open strConnectInfo

	Set rsinfo = Server.CreateObject("ADODB.RecordSet")
	strSQLInfo = "SELECT * FROM PRIVAT_INFO ORDER BY INFO_ID"
	rsinfo.Open strSQLInfo, myConnInfo, 1, 3

'## Dagbog Connection Start
strConnectDagbog = "Driver={MySQL ODBC 3.51 Driver};server=xxxxx;database=xxxxx;option=16834;uid=xxxxx;pwd=xxxxx"

Set myConnDagbog = Server.CreateObject("ADODB.Connection")
myConnDagbog.Open strConnectDagbog

	Set rsdagbog = Server.CreateObject("ADODB.RecordSet")
	strSQLDagbog = "SELECT *, left(D_MESSAGE,150) as DAGBOG FROM PRIVAT_DAGBOG ORDER BY DAGBOG_ID DESC LIMIT 5"
	rsdagbog.Open strSQLDagbog, myConnDagbog, 1, 3

%>

inc_info.asp ser sådan her ud.

<%

Set rsinfo = myConnInfo.Execute(strSQLInfo)
If Not rsinfo.eof Then
do until rsinfo.eof

strShowIoverskrift = "<tr>" & vbNewLine & _
					 "<td class=""body_txt"">" & vbNewLine & _
					 "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
					 "<tr>" & vbNewLine & _
					 "<td width=""50%"" valign=""top"" class=""l_cont"">" & vbNewLine & _
					 "<h1>" & rsinfo("I_OVERSKRIFT") & "</h1><br>"
strShowImessage = rsinfo("I_MESSAGE") & "</td>"

strIoverskrift = strShowIoverskrift
strImessage = strShowImessage

Response.Write strIoverskrift
Response.Write strImessage
rsinfo.movenext
loop
end if
myConnInfo.Close
Set myConnInfo = Nothing

%>

inc_dagbog_main.asp ser sådan her ud:

<td width="50%" valign="top" class="r_cont">
            	<h1>Familie Christiansens Dagbog</h1><br>

<div style="border:#0150B3 solid 1px;padding:4px 6px 2px 6px">
<%

Set rsdagbog = myConnDagbog.Execute(strSQLDagbog)
If Not rsdagbog.eof Then
do until rsdagbog.eof

strShowNday = "<b><u><em>" & rsdagbog("D_DAY") & " "
strShowNdate = "d." & rsdagbog("D_DATE") & "</em></u></b><br><br>"
strShowNcomment = rsdagbog("DAGBOG") & "...." & "<br>"
strShowHr = "<hr>"

strNday = strShowNday
strNdate = strShowNdate
strNcomment = strShowNcomment
strNhr = strShowHr

Response.Write strNday
Response.Write strNdate
Response.Write strNcomment
Response.Write "<br><div align=""right""><a href='dagbog.asp?read=" & rsdagbog("DAGBOG_ID") & "'>Læs mere her</a></div>"
Response.Write strNhr
rsdagbog.movenext
loop
end if
myConnDagbog.Close
Set myConnDagbog = Nothing

%>





</div>

			</td>
		</tr>
	</table>

			</td>
		</tr>

Rettet af - [+35]Jumpman @ 02 Jun 2009 22:31:39

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 03 Jun 2009 : 10:18:47

Forslag forslag forslag ???

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 03 Jun 2009 : 11:44:53

Jeg har fået det løst det blev til

<!-- #INCLUDE FILE="inc_adovbs.asp" -->

<%
'#################################################################################
'## Copyright (C) 2009-2010 Per Christiansen
'## HTTP_USER_AGENT, 
'#################################################################################


'## Undgå caching af ASP-sider
Response.Buffer = true
Response.CacheControl = "no-cache"
Response.Expires = -1

'## Dimension variabler
dim strConnect, strConnectInfo, strConnectDagbog '## Indeholder Databasens driver og sti til og navn på databasen
dim myConn, myConnInfo, myConnDagbog '## Database Connection Variabel
dim strSQL, strSQLInfo, strSQLDagbog '## SQL Kommandoen
dim strGame '## Session

'## Info i venstre side
dim rsinfo
dim strShowIoverskrift, strImessage, strShowImessage, strIoverskrift

'## Dagbog i højre side
dim rsdagbog, strShowNday, strShowNdate, strShowNcomment, strShowHr, strNday, strNdate, strNcomment, strNhr

'## War System Recordset Variabel
dim RS, RS1, RS2, RS3, RS4, RS5, RS6, RS7, RS8, RS9, RS10, RS11

'## Copyright & The W3C validators
dim rsfooter

'## Kontakt formular fra forsiden
dim strNavn, strAdr, strPostnr, strBy, strTlfnr, strEMail, strBem, strreport
dim strSubject, strFrom, strTo, strBody, strMailServer, strEmptyStr
dim blnEmptyEMail
dim objMsg

dim strPassword, mail, objMail

strConnect = "Driver={MySQL ODBC 3.51 Driver};server=xxxxx;database=xxxxx;option=16834;uid=xxxxx;pwd=xxxxx"

'## Login, Footer Connection Start
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strConnect

'## Info Connection Start
Set myConnInfo = Server.CreateObject("ADODB.Connection")
myConnInfo.Open strConnect

'## Dagbog Connection Start
Set myConnDagbog = Server.CreateObject("ADODB.Connection")
myConnDagbog.Open strConnect

'## Login, Footer Connection Start
	Set rs = Server.CreateObject("ADODB.RecordSet")
	strSQL = "SELECT * From PRIVAT_MEMBERS WHERE MEMBER_ID LIKE '%" & Strgame & "%'"
	rs.Open strSQL, myConn, 1, 3
	
	Set rsfooter = Server.CreateObject("ADODB.RecordSet")
	strSQL = "SELECT * FROM PRIVAT_CONFIG WHERE CONFIG_ID=2"
	rsfooter.Open strSQL, myConn, 1, 3

'## Info Connection Start
	Set rsinfo = Server.CreateObject("ADODB.RecordSet")
	strSQLInfo = "SELECT * FROM PRIVAT_INFO ORDER BY INFO_ID"
	rsinfo.Open strSQLInfo, myConnInfo, 1, 3

'## Dagbog Connection Start
	Set rsdagbog = Server.CreateObject("ADODB.RecordSet")
	strSQLDagbog = "SELECT *, left(D_MESSAGE,150) as DAGBOG FROM PRIVAT_DAGBOG ORDER BY DAGBOG_ID DESC LIMIT 5"
	rsdagbog.Open strSQLDagbog, myConnDagbog, 1, 3

'## Andre Connections Start

%>

Det rykker sku for banditten at se tingene virker og alt er w3c validate

Rettet af - [+35]Jumpman @ 03 Jun 2009 11:48:17

[+35]Terabyte
[+35] Soldier

Denmark
2730 Posts

Skrevet - 05 Jun 2009 : 10:47:30

Beklager Jumpy - du var for hurtig så jeg nåede aldrig at rykke på problemet

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 07 Jun 2009 : 10:03:06

Så kan du måske hjælpe her.

I linjen Response.Redirect vil jeg gerne have den til at skrive medlemmets navn i linket efter han er logget ind.
feks. http://clandisa.dk/index_user.asp?=Per

<% '## DSNLess forbindelse til databasen %>
<!--#include file="inc_config.asp"-->
<!--#include file="inc_header.asp"-->
<% strGame = Session("MEMBER_ID")%>

<%
'## Hvis der er blevet trykket på knappen "Login"
If Request.Form("Action") = "Login" Then

' Her forberedes de indtastede værdier til validering
	strUserID = Trim(Replace(Request.Form("M_Brugernavn"),"'",""))
	strPassword = Trim(Replace(Request.Form("M_Adgangskode"),"'",""))

' Hvis der er skrevet noget i både brugernavn og adgangskode
If Len(strUserID) > 0 And Len(strPassword) > 0 Then
		
' Opbygning af SQL streng
	strSQL = "SELECT * FROM PRIVAT_MEMBERS WHERE M_USERNAME = '" & strUserID & "' AND M_PASSWORD = '" & strPassword & "'"

		Set rs = myConn.Execute(strSQL)
		If Not (rs.BOF Or rs.EOF) Then

' Hvis brugeren fandtes i databasen
			intID = rs("MEMBER_ID")
			Strcn = rs("M_FIRSTNAME")
			Strtag = rs("M_LASTNAME")
			strlevel = rs("M_LEVEL")
		Else
			
' Hvis brugeren ikke fandtes i databasen
			strERR = Response.Redirect("login_miss_userpass.asp")
		
		End If

' Rydder op i vores connection objekt
		myConn.Close
		Set myConn = Nothing

' Hvis variablen intID indeholder en værdi sættes denne i sessionen "MEMBER_ID" og brugeren bliver sendt videre
		If Len(intID) Then
			Session("MEMBER_ID") = intID
			Session("M_USERNAME") = StrUserID
			Session("M_FIRSTNAME") = Strcn
			Session("M_LASTNAME") = Strtag
			Session("M_LEVEL") = strlevel
			Response.Redirect "index_user.asp?ID=" & rs("M_FIRSTNAME") & ""

		End If
	
	Else
		
' Hvis der ikke var angivet brugernavn og adgangskode
		strErr = Response.Redirect("login_blank_form.asp")
	
	End If


End If
%>

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 07 Jun 2009 : 23:48:28

Jeg har fundet ud af det

Response.Redirect("index_user.asp?name=" & StrUserID & "")

Emne

Nyt emne

Emnet er lï¿½st

Vis printervenlig version

Hop til:

Clan [+35] Forum

Tilpasset ældre læsere - vist på [:)] 0.23 sek.

Snitz Forums 2000