Kanske kanske MemberConString?
Frågan#1
Får inte AspSmartUpload att fungera riktigt som jag vill. Jag har gjort på det här sättet förut så jag förstår inte vad som är fel. Är inte säker på att det har med själva uppladdningen att göra heller. Felet blir "Operation is not allowed when the object is closed".
Koden är uppdelad på två sidor eftersom AspSmartUpload inte kalrar av flera sidor på samma.
newrecord.asp
<html>
<head>
<title>Skivor</title>
<script laguage="JavaScript" src="style.js">
</script>
</head>
<body bgcolor="#99CCCC">
<% if session("level")>3 then %>
<center><b>Ny skiva</b></center>
<br><br>
Här får du fylla i information om en skiva du vill lägga till!
<br>
<form name="newrecord" action="newrecord2.asp" method="post" ENCTYPE="multipart/form-data">
Artist:<br>
<input type="text" name="artist" size="25" maxlength="25"><br>
<br>
Skivans namn:<br>
<input type="text" name="name" size="30" maxlength="30"><br>
<br>
Typ:<br>
<select name="type">
<option value="Album">Album</option>
<option value="Singel">Singel</option>
<option value="Demo">Demo</option>
<option value="Medverkan">Medverkan</option>
</select><br>
<br>
Utkom:<br>
<input type="text" name="release" size="4" maxlength="4"><br>
<br>
Studio:<br>
<input type="text" name="studio" size="30" maxlength="50"><br>
<br>
Producent:<br>
<input type="text" name="producer" size="30" maxlength="50"><br>
<br>
Mixad av:<br>
<input type="text" name="mixer" size="30" maxlength="50"><br>
<br>
Mastrad av:<br>
<input type="text" name="master" size="30" maxlength="50"><br>
<br>
Omslag av:<br>
<input type="text" name="cover" size="30" maxlength="50"><br>
<br>
Information:<br>
<textarea name="info" cols="30" rows="5"></textarea><br>
<br>
Bild:<br>
<input type="file" name="FILE1" size="30"><br>
<br>
<input type="submit" value="Lägg till skiva">
</form>
<% else %>
<center><b>För låg level!</b></center>
<br>
Du har för låg level för att kunna administrera denna del av winnerback.tk!
<% end if %>
</body>
</html>
newrecord2.asp
<html>
<head>
<title>Skivor</title>
<script laguage="JavaScript" src="style.js">
</script>
</head>
<body bgcolor="#99CCCC">
<% if session("level")>3 then %>
<%
' Variables
' *********
Dim mySmartUpload
Dim intCount
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
On Error Resume Next
' Only allow txt or htm files
' ***************************
mySmartUpload.AllowedFilesList = "gif,jpg"
' DeniedFilesList can also be used :
' Allow all files except exe, bat and asp
' ***************************************
' mySmartUpload.DeniedFilesList = "exe,bat,asp"
' Deny physical path
' *******************
mySmartUpload.DenyPhysicalPath = True
' Only allow files smaller than 50000 bytes
' *****************************************
mySmartUpload.MaxFileSize = 50000
' Deny upload if the total fila size is greater than 200000 bytes
' ***************************************************************
mySmartUpload.TotalMaxFileSize = 200000
' Upload
' ******
mySmartUpload.Upload
artist=mySmartUpload("artist")
name=mySmartUpload("name")
typen=mySmartUpload("type")
release=mySmartUpload("release")
producer=mySmartUpload("producer")
mixer=mySmartUpload("mixer")
master=mySmartUpload("master")
cover=mySmartUpload("cover")
info=mySmartUpload("info")
picture=mySmartUpload("picture")
studio=mySmartUpload("studio")
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open MemberConString
SQL = "INSERT INTO tbl_users(str_artist,str_name,str_type,str_release,str_producer,str_mixer,str_master,str_cover,pm_info,str_picture,str_studio) Values('" & artist & "','" & name & "','" & typen & "','" & release & "','" & producer & "','" & mixer & "','" & master & "','" & cover & "','" & info & "','" & picture & "','" & studio & "',)"
MinCon.Execute(SQL)
' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
intCount = mySmartUpload.Save("records")
' sample with a physical path
' intCount = mySmartUpload.Save("c:\temp\")
' Trap errors
' ***********
If Err Then
Response.Write "<b>Ogiltig fil : </b>" & Err.description
Else
' Display the number of files uploaded
' ************************************
Response.Write "<center><b>Ny skiva</b></center><br><br>Den nya skivan än nu inlagd i databasen och kan ses utav alla på sidan."
Response.Write intCount & " fil(er) uppladdade."
End If
' End if
%>
<% else %>
<center><b>För låg level!</b></center>
<br>
Du har för låg level för att kunna administrera denna del av winnerback.tk!
<% end if %>
</body>
</html>
Hoppas det är någon som förstår vad som är fel :)