Jag har ett problem jag har en gästbok som känner av anändaren och nu vill jag få in en bild på användarna i gästboken problemet är att bilden ligger i en annan databas hur skall jag göra??
<-write_gb.asp->
!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gb.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("namn") = Session("username")
RecSet("bild") = Session("bild")
RecSet("datum") = Date
RecSet("tid") = time
RecSet("text") = Request.Form("text")
RecSet("tillID") = Request.QueryString("tillid")
RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect "read_gb.asp?tillid=" &Request.QueryString("tillid")
%>
<-read_gb.asp->
<!-- #include file="adovbs.inc" -->
<%
If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
Response.Redirect "default.asp"
End If
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gb.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Order By tid DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
</head>
<body bgcolor="blue" text="#000000">
<table width="600" border="0" cellspacing="2" cellpadding="2">
<tr>
<td valign="top" colspan="3" bgcolor="#cc3399"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Läs i Gästboken
</b></font></td>
</tr>
<tr>
<td valign="top" colspan="3" bgcolor="#CCCCCC">
\<table width="500" border="0" cellspacing="0" cellpadding="0"\>
\<% Do Until RecSet.EOF %\>
\<table width="400" border="0" cellspacing="0" cellpadding="0"\>
<TR>
<TD>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#000000"><%=RecSet("namn")%> </b>
- <font color="#FF0000"><%=RecSet("datum")%><a> </a> <%=RecSet("tid")%></font></font></font>
\</TD\>\</TR\>\</TABLE\>
\<table width="320" border="0" cellspacing="0" cellpadding="0" valign="top"\>
\<tr\>
\<td\>\<img src="\<%=RecSet("bild")%\>" width="40" height="50"\>
\</TD\>
\<td width="280" valign="top"\>
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<%=Replace(TRIM(Server.HTMLEncode(RecSet("text"))),vbcrlf,"\<br\>")%\>\</font\>\</td\>
\</td\>
\<tr\>
\</tr\>
\</table\>
\<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:history.go(-1);">Tillbaka</a>
</font> </p>
<table width="75" border="0" cellspacing="2" cellpadding="2">
<tr></tr> </table>
<td valign="top" colspan="3" bgcolor="#cc3399"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Skriv i Gästboken
</b></font>
\<form name="form1" method="post" action="write_gb.asp?tillid=\<%=Request.QueryString("tillid")%\>"\>
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>
\<textarea name="text" cols="15" rows="4" class ="table"\>\</textarea\>
\<br\>
\<input type="submit" name="Submit" value="Skicka" class="knapp"\>
( Ditt namn registreras automatiskt ) \</font\> \</td\>\</table\>
\</form\>
\</td\>
</tr>
</table></table>
</body>
</html>